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TCSCEX ( ) PAGE 


EJEC 03 00001 
* THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO3 none 
* 03 0000 
° V.0.M. PART NO. 92L1105-007A 03 co004 
03 00005 
RELEASED 03-26-73 03 00006 
* 03 00007 
« G3 00008 
. TCSCEX 03 00009 
. 03 00010 
. 03 00011 
TITLE TCSCEX 03 00012 
EVEC seeenene 
THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES#####808 
* 
Vv.0.M. PART NO. 92L1105-005A4 
RELEASED 03-26-73 
VTABL 
* 
SPACE MAC 
IFT P(1),.0 
SPAC 
IFT P(1),,0 
SPACE P(l)-1 
EMAC 
PUSH MAC 
EXT VTPUSH 
OINTS 
JMPM VTPUSH 
DATA Pil) 
EMAC 
ANAM MAC 
FF P10),,3 
GOTO BRO 
IFT P(1),,10 
GOTO 8810 
ANA 8M1777 
B&ld CONT 
IFT P(1),,9 
GOTO Bag 
ANA 8M777 
Bag CONT 
IFT P(1),.8 
GOTO Bas 
ANA 8M377 
Bas CONT 
IFT P(1),,7 
GOTO B87 
ANA 8M177 
Ba7 CONT 
IFT P(1),.6 
GOTO B86 
ANA 8M77 
Ba6 CONT 
IFT P(1),.S 
GOTO 685 
ANA 8437 
Bas CONT 
IFT P(1),.4 
GOTO Bay 
ANA BM17 
BBY CONT 
IFT P(1),,3 
GOTO 683 
ANA BM7 
Bas CONT 
IFT P(1),,2 
GOTO Bae 
ANA BMS 
B82 CONT 
IFT PCL), 41 
GOTO Bal 
ANA BMI 
Bal CONT 
IFT PCL) 1E,a1 
GOTO BB 
Bao CONT oeeneeee 
IFT P(1),,0 suvecves 
ANAM = P(1)-1,P(2)#241,0 
IFF P(1),.0 
ANAT PCa) 
Ba CONT 
EMAC 
ANAN MAC 
IFT P(1),,0 
ANAN P(1)-1,P(2) #241 
FF P(1),,0 
ANAL -P(2)-1 
EMAC 
SETA MAC 


VTAM AL TCSCEX ( 2) PAGE 


96 FF P(4),,16 senseeee 
97 coro) iB 

98 IFT P(3),,0 
99 LRLA P(3) 

100 ERA P(2),P(1) 
101 IFT P(3),,0 
102 LSRA—P(3) 

103 ANAM p(w) 

104 IFT P(3),,0 
105 LRLA = P(3) 

106 ERA P(2) PCL) 
107 8 CONT 

108 STA P(2),PC1) 
109 EMAC 

110 SETB MAC 

it FF P(l),,2 
12 **ERROR** 

113 1FF P(4), 16 
114 ste P(2),PC1) 
115 IFF P(4), 16 
116 GoTo. B 

117 LDA P(2),P(1) 
118 IFT P(3),,0 
119 LRLA = -:16-P(3) 
120 ANAN P(4),0 
121 MERGE 03 

122 IFT P(3),,0 
123 LRLA = P(3) 

124 STA P(2),PCL) 
125 B CONT 

126 EMAC 

127 FETCHA MAC 

128 LDA P(2),P(1) 
129 IFT P(3),,0 
130 LSRA P33) 

131 IFT 0,P(3)+P(4) 15 
132 ANAM = P(4) 0 
133 EMAC 

134 SUBAT MAC 

135 IFF PCL) 11,11 
136 suBl = PC 1) 

137 IFT 9,P(1),10 
138 sus TEN 

139 IFT 8,P(1),9 
140 sus NINE 

141 IFT 7,P(1),8 
142 sua EIGHT 

143 IFT 6,P(1),7 
144 suB SE’ 

145 IFT 5.P(1),6 
146 SIX 

147 IFT 4,P(1),5 
148 FIV 

149 IFT 3,PC1),4 
150 sus F 

151 IFT 2,P(1),3 
152 suB T 

153 IFT 1,P(1),2 
154 sus THO 

155 IFT 0,PC1),1 
156 sus ONE 

157 EMAC 

158 ADAT MAC ADD ATTRIBUTE DESCRIBED BY P(1), AND P(2) 
159 IFF PCL), 11,11 
160 ADDI Pa.) 

161 IFT 9,PC1),10 
162 ADD TEN 

163 IFT 8,P(1),9 
164 ADO NINE 

165 IFT 7,P(1),8 
166 ADD EIGHT 

167 IFT 6,P(1),7 
168 00 SEVEN 
169 IFT 5,P(1),6 
170 ADD SIx 

171 IFT 4,PC1),5 
172 ADD FIVE 

173 IFT 3,PC1),4 
174 ADD Fe 

175 IFT 2,P(1),3 
176 Ad0 Tl 

177 IFT 1,P(1),2 
178 ADD 

179 IFT 0,PC1),1 
180 00 

181 

162 EINTS MAC 

183 EXC ENAPIM 
184 EXC ENACLK 

1 MAC 

186 DINTS MAC 

187 EXC OISPIM 
188 EXC DISCLK 
189 EMAC 


191 IFT PCH), 1 ERROR IF NOT ONE BIT FLAG 


VTAM Al 


000000 
000001 
000002 
000003 
ooo004 
000005 
000006 
000007 
000010 
000011 

oo001e 
000013 
000014 
000015 
000016 
000017 
000020 
000021 

0000e2 
000023 
oo00e4 
000025 
000026 
0000e7 
000030 


000017 


000016 
000015 
000014 


000013 
oo00le 
ooooit 


000010 
000007 
000006 


000005 
000004 
000003 


oo00002e 
000001 
000000 


PP> rr rrr rrr >> rr rrr errr errr 


>>> PP> Phere Pe HPrm > 
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**ERROR** 
LDA P(2),PU1) 
ORA BS0+P(3) 
STA P(2),PCL) 
EMAC 
CLEARF MAC 
IFT PCH), y1 
**ERROR** RROR IF NOT ONE BIT FLAG 
LDA P(2),P(1) 
ANA BRO+P(3) 
STA P(2),.P(1) 
EMAC 
TESTF MAC TEST FLAG MACRO 
IFT PCY), ,1 
**ERROR®*® 
LOA P(2),PC1) PICK UP WORD CONTAINING FLAG 
ANA BSO+P(3) 
EMAC 


TIOB SETUP 


Seeeceeseneees 


EQu t) TASK THREAD 

EQu 1 TASK STATUS eeeee 
EQu e STATUS CONT. (BITS15-6) ,PRIORITY LEVEL(5-0)* 
EQu 3 INTERRUPT EVENT . 
EQu 4 A REENTRANT AND SUSPEND STACK 

EQu 5 8 REENTRANT AND SUSPEND STACK 

EQu 6 x REENTRANT AND SUSPEND STACK 

EQu 7 oF/P REENTRANT AND SUSPEND STACK 

EQu 8 TEMP. STG. REENTRANT AND SUSPEND STACK 

EQu 9 TASK ENTRY LOCATION 

EQu 10 TIME COUNTER - CLOCK RESOLUTION IN SMS 

£QU i TIME COUNTER - CLOCK MINUTE INCREMENTS 

EQu 12 A INTERRUPT STACK 

Qu 13 i=} INTERRUPT STACK 

EQu 14 x INTERRUPT STACK 

EQu 15 OF /P. INTERRUPT STACK 

E£Qu 16 REENT. STACK INTERRUPT STACK 

E£QU 17 BLK ALLOC(15-10),1/0 THR(9-5),1/0 ACT(4-0) * 
£QuU 18 TASK NAME . 
EQu 19 TASK NAME 

EQu 20 TASK NAME 

EQu 21 1ST LOC. OF TASK ALLOCATABLE 

EQu ee BACKGROUND TASK QUEUE 

EQu 23 TIOB LOC. OF ACTIVATING TASK 

EQu a4 TASK ERROR CODE 


EEC 


eeeeeeenee 


TASK STATUS DESCRIPTION (BIT SET WORD 1) 


TBSI5 EQU 15 INTERRUPT SUSPEND 
TeSI4 EQU 4 TASK SUSPEND 
TBS13 EQU 13 TASK ABORT 
Tesi2 EQU 12 TASK EXIT 
TBSi1 EQU MW TIOB CORE RESIDENT 
TBS10 QU 10 CORE RESIDENT TASK 
TBSg =EQU 9 FOREGROUND TASK eases: 
Tess = EQU 8 TASK PROTECTED  ebecieelcins 
TBS7 =©EQU 7 TASK SCHEOULED BY TIME DELAY 
Tes6 = EQU 6 TIME DELAY ACTIVE 
TBSS = =EQU 5 TASK WAITING TO BE LOADED 
TBSY EQu 4 TASK ERROR 
TBS3 EQu 3 TASK INTERRUPT EXPECTED 
Tese QU & OVERLAY TASK 
TBS! Equ 1 UPON TERMINATION ACTIVATE TASK SCHED TASK 
TBSO = EQU 0 TASK SEARCH-ALLOCATED-LOADED 
EVEC 
PERCE OEE TESTED EOC ERO O DRE E DESEO EES ES TOSSES SSODESSE SSE SROOESEOOSTOSORSED 
. 
tee TASK STATUS DESCRIPTION (BIT SET WORD 2) 


seere 


= BIT 15 - TASK OPENED 

e BIT 14 = UNUSED 

- BIT 13 - OVERLAY LOAD 

« BIT 12 - TASK WAITING FOR BACKGROUND TASK I/O TO COMPLETE 
* TASK LOCKED-OUT UNTIL BG 1/0 COMPLETE OR BIT 11 

* IS SET (ALLOCATABLE SPACE AVAILABLE) 

. BIT 11 - OEFINES THAT ALLOCATABLE SPACE IS AVAILABLE, TRY 
* ALLOCATING TASK AGAIN. OVERRIDES BIT 12 SET OR 
= BIT 5 IN STATUS WORD, 

ie BIT 10 - BACKGROUND TASK BEING WRITTEN ON CHECKPOINT FILE. 


VTAM AL 


000050 
000050 
000054 
000055 


000056 
000070 
000074 
000075 
000076 


000077 


000300 
000300 
00301 
000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 
000313 
GO0314 
000315 
000316 
000317 
000320 
000330 
000334 


000341 
000342 
000343 
000344 
000345 
000346 
000347 
000350 
000351 
000352 
000353 
000354 
000355 
000356 


000360 
000361 
000362 
000363 


000375 
000376 
000377 
000400 
000401 
000402 
000403 


000410 
000411 
ooo41e 


000413 


>P>> 


>Prr> 


PPS Hr Or EES >> HH FHP OSE HE ESE Er > > EEE > >ry 


PPE rrrr >>> 


>>> 


TCSCEX cow PAGE 


ees * BIT 9 - TASK WAITING FOR A TIDB TO COME AVAILABLE FOR 

eso * SCHEDULING. 

eg1e¢ BIT 8 TO 6 —- UNUSED seeneeeee 
e292 EJEC 


2GZ Meee eeeseeee eee a see esas ee eee eee eee eee ESSE TESS SEES EE EEE ESSE ESTE SESERES 


2o4 * 


295 se JOB PROCESSOR LOW CORE EQUATES 
. 

299 LCVP QU 050 

300 VSUNAM EQU LCP JCP_NAME 

301 V$LCNT EQU UcuP+4 LINE COUNT 

302 V$JCFG EQuU LeuP+s JCP FLAGS 

303 * BIT 2-0 = LOAD AND GO FLAGS 

304 * BIT 3 = DUMP FLAG 1=DUMP, O=NO DUMP 

305 ¢ BIT 4 = DUMP FLAG IF LOAD AND GO 

306 * BIT 9-5 = UNUSED 

307 * BIT 15-10 = BG EXTRA CORE BLOCKS TO ALLOC *#seeeees 

309 V$BIC1 EQu LOUP+6 BIC INTERRUPT ADDRESS TABLE (10 WORDS) 

310 V$DATE EQU LCUP+16 JCP DATE RECORD 

311 VSPLCT EQU LCUP+20 PERMINATE LINE COUNT 

312 V$BGL8 EQU LCuP+21 yCP LIB KEY AND LU NO. (BACKGROUND LIB) 

313 VSCROM EQuU Leup+22 CARD KEYPUNCH TYPE, 0-026, 1=029 

314 * BIT 0 = SYSTEM NOMINAL KEYPUNCH MODE. 

315 * BIT 9 = CURRENT JOB KEYPUNCH MODE. 

316 VSUCTM Leup+23 TEMP. STORAGE FOR /MEM BLOCK 

317 

318 eeenene 

319 


LOW CORE DESCRIPTION 


324 LC EQu 0300 

325 VSCTL EQU Lc CURRENT TASK TIDB LOCATION 

326 VSCPL EQU LC+1 CURRENT PRIORITY LEVEL 

327 VSCRS EQU Lc+e CURRENT REENTRANT STACK POINTER 

328 V$TB_ EQU LC+3 POINTER TO HIGHEST PRIORITY TIDB 

329 V$UTB_ EQU LC+4 POINTER TO UNUSED TASK TIDB 

330 VSPTVB EQU LC+5 POINTER TO NEXT ENTRY IN REENTRANT STACK 

331 V$FLRS EQU LC+6 FIRST LOC, OF REENTRANT STACK 

332 VS$LRSK EQU LC+7 LAST LOC. OF REENTRANT STACK+1 

333 VSCKPT EQU LC+8 CHECKPOINT FLAG 1=ON, O=OFF 

334 VSOPCL EQU LC+9 LOC. OF TIOB FOR OPCOM TASK 

335 VS$LSAL EQU LC+10 LOC. OF TIOB FOR SYSTEM SAL TASK 

336 V$LER EQU LC+11 LOC. OF TIOB FOR SYSTEM ERROR TASK 

337 VSTJCP EQU Lc+12 LOC. OF TIOB FOR JOB CONTROL PROCESSOR TASK 
338 V$BTB EQU Lc+13 LOC. OF CURRENT ACTIVE BACKGROUND TSK TIOB 
339 V$LUP_ EQU LC+14 LOC. OF 1ST UNPROTECTED WORD * 
340 VSLLUP EQU LC+15 LOC. OF LAST UNPROTECTED WORD id 
341 VSIM = EQU LC+16 INTERRUPT MASK (8 WORDS) = 
342 VSMPM EQU Lc+e4 MEMORY PROTECT MASK (4 WORDS) * 
343 VSCAM EQU LC+e8 CORE ALLOCATION MASK (4 WORDS) ® 
Suu * EQu LC+32 UNUSED . 
345 VS$CROR EQU LC+33 CORE RESIDENT DIRECTORY LOCATION < 
346 VSTBGT EQU LC+34 TOP OF THREAD OF BG TSK WAITING TO BE ALLOCS* 
347 VSTMS EQU LC+35 TIME OF DAY IN 5 MILLISECOND INCREMENTS 

348 VSTMN EQU LC+36 TIME OF DAY IN MINUTE INCREMENTS 

349 V$LUNT EQU LC+37 ADOR. OF LOGICAL UNIT NAME TABLE 

350 VSOPCF EQU LC+38 OPCOM LOCKOUT FLAG 

351 V$FGLB EQU LC+39 KEY AND LU NO. FOR FOREGROUND LIB 

352 VSFREE EQuU LC+40 FREE RUNNING COUNTER INCR. IN MICROSECONDS * 
353 VSCTMS EQU LC+41 CLOCK RESOLUTION IN 5 MILLISECOND INCR. 

354 v$sCv EQU Lc+42 CLOCK SELECTED COUNT VALUE (1 TO 4095) 

355 VSCKB EQU LC+43 BASIC CLOCK INTERRUPT RATE IN MICROSECONDS * 
356 VSCRM EQU Lo+44 CLOCK RESOLUTION INCR. FOR 1 MINUTE. 

357 V$OSTB EQU LC+4S BASE ADDR. FOR DST BLOCK 

358 V$LIT EQuU LC+46 LAST LOCATION OF BACKGROUND LITERAL TABLE 
359 * EQu LC+47 UNUSED 

360 VSCTAD EQU LC+48 BASE ADDR. FOR CONTROLLER ADDR. TABLE 

361 VS$SCTL EQu LC+49 CURRENT CONTROLLER IN SCAN 

362 VSNCTR EQU LC+50 NO. OF CONTROLLERS 

363 VSPIMN EQU LC+51 EXTERNAL DEVICE ADDRESS TABLE FOR PIMS 

364 * (8 WORDS DEFINED IN PIM NO ORDER) 

365 * EQU LC+59 UNUSED 

366 * Qu LC+60 UNUSED 

367 V$SLFG EQU LC+61 SAL TASK BUSY FLAG 1=BUSY, O=NOT BUSY 
368 VSERFG EQU LC+62 ERROR TASK BUSY FLAG 1=BUSY, O=NOT BUSY 
369 V$JOP EQU LC+63 JCP OPERATING FLAG 

370 V$LUT! EQU LC+64 START LUN ADOR FOR JCP/OPCOM ASSIGNABLE 

371 V$LUT2 EQU LC+65 START LUN ADDR FOR UNASSIGNABLE 

372 V$LUT3 EQU LC+66 START LUN ADDR FOR OPCOM ASSIGNABLE 

373 VSIMIN EQuU LC+67 32767 - (60000/(5*V$CTMS)) + 1 

omy ® Equ LC+68 UNUSED 

s75°* EQu LC+69 UNUSEO 

376 * EQqu LC+70 UNUSED 

377 * EQU LC+71 UNUSEO 

378 V$IOA_ EQU LC+72 1/0 ALGORITHM 

379 VS$CKIT EQU LC+73 CLOCK INT. IN PIM BEFORE LOCKOUT FLAG. 

380 V$JCB EQU Lco+74 ALL SYSTEM BACKGROUND PROGRAMS AND JCP USE 
381 * THIS SYSTEM BUFFER TO READ DIRECTIVES AND 
382 * SOURCE RECORDS IN. 

383 v$OCB EQU LC+75 OPCOM WILL READ OPERATOR KEY-IN REQUESTS 


VTAM Al 


o00414 
000415 
000416 


000420 
000420 
000421 
o004ee 
000423 
000424 
000425 
000426 
o004e7 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000440 
oo0441 
oo044e 
000443 
Oo0444 
000445 
000446 
000447 
000450 
00045! 
000452 
000453 
000454 
000455 
000456 
000457 
Q00460 
000461 


000462 
000463 
oo04e1 
000422 
000464 
000423 
000465 
000466 
000467 
000424 
000470 
o00471 
ooo4el 
000464 
000467 
000472 
000473 
OO0474 
000475 
000463 
000476 
000477 


000040 
000000 
000060 
000020 


ooo000 
000001 
oo0002 
000003 
000004 
000005 


PPP SESE EEE HEE EEE rE rE >> SHEE EEE EEE EEE EEE EEE EEE EEE E> EE EEE EDD 


>>> 


>>r>rr> 


VSBVN EQU LC+76 

VSBFC EQU LC+77 

VSTFC EQU Lc+78 

c Eau Lc+79 
EJEC 


TCSCEX € ) PAGE 


IN THIS BUFFER. IF JCP IS SET NOT ACTIVE 
AND A 1 OIRECTIVE IS INPUTED, OPCOM 

WILL MOVE THE DIRECTIVE TO V$JCB BEFORE 
SCHEOULING JCP. 

BOTTOM OF VORTEX NUCLEUS 

TOP OF FG RES. AREA/BOTTOM OF FG BLK COMM. 
TOP OF FG BLK COMMON/TOP OF VORTEX CORE. 
UNUSED 


Pereerrrrerererrricrirrr titi r rite 
. 


eee MASK TABLE DESCRIPTION at ak 


ZERO QU MT 

BSO Equ MT+1 
BSI EQu MT+2 
Bs2 €QU MT+3 
Bs3 EQu MT+y 
BS4 Qu MT+5 
es5 E£Qu MT+6 
8S6 Equ MT+7 
BS7 EQu MT+6 
ess EQu MT+9 


BSil EQU MT+i2 
Bsie EQU MT+13 
BS13 EQU MT+14 
BSIy EQU MT+15 
BS15 EQU MT+16 
BRO €Qu MT+17 
BRI EQu MT+18 
BRE EQu MT+19 


NEG EQu MT+33 
LHW Equ MT+34 
RHW EQu MT+35 
ONE Equ MT+t 
TWO EQu MT+2 
THREE EQU MT+36 


NINE EQu MT+40 
TEN Equ MT+4l 
BMI Qu MT+1 


BM37 —- EQU MT+43 
BM77 EQu MT+4y 
6M177 EQU MT445 
BM377 EQU MT+35 
BM777_ EQU MT+46 
8M1777 EQU MT+47 


PRS COC OTHE OSE R EROS ESEES ESOS DEORE ED OSOSESEEESEEESEES OES 


iia BIT TEST BIT DESIGNATION 


Prerrrirrirriiiitiiitii iid 


RAO EQu 040 
RAL E€Qu 000 
RBO EQu 060 
RBI €qu 020 


ZERO WORD 
BIT MASK CONTENTS 000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
0100000 
BIT MASK CONTENTS 0177776 
0177775 
0177773 
0177767 
0177757 
0177737 
0177677 
0177577 
0177377 
0176777 
0175777 
0173777 
0167777 
0157777 . 
0137777 . 
0077777 * 
. 


eeeeseses 


SET ALL BITS 


LEFT HALF WORD MASK 0177400 
RIGHT HALF WORD MASK 0377 
CONTAINS NUMBER 
CONTAINS NUMBER @ 
CONTAINS NUMBER 3 
CONTAINS NUMBER 4 
CONTAINS NUMBER 5 

6 

7 


CONTAINS NUMBER 
CONTAINS NUMBER 
CONTAINS NUMBER 8 
CONTAINS NUMBER 9 
CONTAINS NUMBER 10 
BIT MASK WORD 00001 
BIT MASK WORD 00003 
BIT MASK WORD 00007 
BIT MASK WORD 00017 
BIT MASK WORD 00037 
BIT MASK WORD 00077 
BIT MASK WORD 00177 
BIT MASK WORD 00377 
BIT MASK WORD 00777 
BIT MASK WORD 01777 


BT JUMPS WHEN A REGISTER IS 0 
BT JUMPS WHEN A REGISTER IS 1 
BT JUMPS WHEN B REGISTER IS 0 
BT JUMPS WHEN B REGISTER IS 1 


VTAM AL 


000006 
000007 
000010 
ooo! 
000012 
000013 
oooo14 
000015 
000016 
000017 


>> >>> re rrrr 


000047 A 


000747 
000147 


>> 


000044 
000040 
000041 
000042 
000043 
000040 
000040 
000040 
000040 


ooo444 
ooo244 


>> SPP rE rrrrr 


000045 
000745 
000645 
000045 
000145 
000245 
000345 


>>>rrr> 


000000 A 
000000 A 


000000 


000000 
000001 
000002 
ooo00e 
ooo00e 
ooo00e 
000002 
ooo00e 


>>>>>rr> > 


000000 A 


000000 A 


000000 A 
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86 equ 6 sveeeses 
87 qu 7 eee 
88 EQu 8 
89 EQu 9 
Bio Qu 10 
Bil EQu 1 
gi2 EQu 12 
B13 EQU 13 
B14 —- EQu 14 
B15 Equ 15 
EvEC ee 
A0naseecsecececeeesesecerserceneccerescccenvesescccecsosessecsccescoesesees 
e eens 
*#s* DEVICE AND FUNCTION CODES seeneee 
. . 
aecenececcccccneneceeecescconescesesoeseesensereesesccoeccoeseconeeecoseoe 
¢ee* REAL TIME CLOCK seveeeveueee 
CLOCK EQU 047 DEVICE NUMBER 047 . 
. 
DISCLK EQU O700+CLOCK DISABLE CLOCK 
ENACLK EQU O100+CLOCK ENABLE CLOCK 
. 
sees PIM 
APIM QU o44 ALL PIMS DEVICE NUMBER 
PIM! EQU 040 seeeenee 
PIM2 QU out eerrrery 
PIM3 QU 042 oe 
PIMY QU 043 


PIMS EQU 040 
PIMG6 EQU 040 
PIM7 EQU O40 
PIMe = EQU 040 
. 


DISPIM EQU O400+AP IM 


ENAPIM EQU 0200+APIM 

eeee MEMORY PROTECT . 
MP Equ O45 DEVICE ADDRESS 045 

DISMP EQU 0700+MP DISABLE MEMORY PROTECT 

ENAMP = EQU 0600+mMP ENABLE MEMORY PROTECT 

MPMRO EQU O000+mMP SELECT MASK REGISTER 0 

MPMRI =EQU O100+MP SELECT MASK REGISTER 1 

MPMRe = EQU 0200+MP SELECT MASK REGISTER 2 

MPMR3 EQU 0300+MP SELECT MASK REGISTER 3 


EvEC 
* DEVICE SPECIFICATION TABLE, OST 
* OST FOR EACH DEVICE,AND EACH RMD PARTITION 
. 
DSOVON EQU O DEVICE DOWN INDICATOR, 1=DOWN BIT 15 
DSDASS EQU 0 DEVICE ASSGNMT INDICATOR,BITS 14-13 
00 ASSIGNABLE BY JCP AND OPCOM 


x 01 ASSIGNABLE BY OPCOM ONLY 

© . 10 UNASSIGNABLE 

2 00 UNUSED 

DSUNAM EQU 0 DEV NAME ,CH.3 B12-10,CH.4 BO-4 

* AOD 0260 TO GET ASCII CHARACTER 
DSNORQ EQU t) DEVICE REQUEST COUNTER, BITS 3-0. 
OSNAME EQU 1 DEVICE NAME,2 ASCII CHAR. 

DSREWO EQU 2 DEVICE REWIND INDICATOR, 1*REWIND,BIT 15 
DSUNTN EQU 2 DEVICE UNIT NO. ,BITS 14-13 

OSLCKO EQu 2 PARTITION LOCKOUT FLAG BIT 12 

DSOPCM EQU 2. OPCOM DEVICE INDICATOR,BIT 11 

OSPSTI EQu 2 INOEX TO PST,BITS 10-6. 

OSCTAD EQU 2 INDEX TO COTAD,CONTRLLR ADDR TABLE,B5-0. 


EJEC 
* CONTROLLER ADDRESS TABLE ,COTAD 
sd 1 ENTRY FOR EACH CTBL. 


. 
COTAD1 EQuU ty) BASE ADDRESS FOR CONTROLLER TABLE 
* 


EvEC 
BIC FLAG TABLE 
1 ENTRY FOR EACH BIC ,EACH CONTROLLER TABLE,CTBL, WHICH 
UTILIZES A BIC CONTAINS AN ADDRESS,CTBICB, POINTING 
TO 1TS BIC ENTRY. 


ICNUM EQU 0 BIC NUMBER FOR THIS ENTRY. 
POSITIVE VALUE MEANS BIC IS AVAILABLE 
NEGATIVE VALUE,COMPLEMENTED BIC NO., 
MEANS BIC IS CURRENTLY IN USE. 


weer eeeMereee 


EVEC 
* REQUEST BLOCK , ROQBLK 
e 1 FOR EACH IOC REQUEST. RQBLKS ARE QUEUVED ACCORDING TO TASK 
bd PRIORITY TO CTBL. 
RSTPR EQU t) BIT 15 = 1/0 COMPLETED INDICATOR. 
- BITSI4-5,DRIVER STATUS 


VTAM AL TCSCEX ( 7? PAGE 
BITS 4-0, REQUESTING TASK PRIORITY. 


ooo00! A EQu 1 BIT 15 = WAIT OPTION 
BITSI4-12, MODE,USED BY DRIVERS 
BITS 11-8,0P-CODE 
BITS 7-0, LOGICAL UNIT NO. 
000002 A €Qu e FCB OR DCB ADOR. 
000003 A EQu 3 REQUESTING TASK TIOB AOOR. 
000004 A EQu 4 ADDR.OF NEXT ROBLK IN QUEUE. ,0* NONE. 
EJEC 
PARTITION SPECIFICATION TABLE, PST 
A PST EXISTS FOR EACH ROTATING MEMORY DEVICE. EACH PARTITION 
ON THE RMD HAS A FIVE WORD ENTRY IN THE PST. THE PARTITION'S 
PST ENTRY NUMBER IS SPECIFIED IN THE DEVICE SPECIFICATION 
TABLE DST, THUS LINKING THE PST WITH A LOGICAL UNIT NUMBER. 
THE EFFECTIVE ADDR FOR AN ENTRY IS FOUND AS FOLLOWS: 
PST ADDR. FOR ENTRY = (ENTRY NO. * 4 ) + 1 + PST BASE ADOR 
594 © 
595 * 
000000 A 596 PSBEG EQU i) PARTITION BEGINNING ADDR. 
000001 A 597 PSPROT EQU 1 BIT 15, PROTECT FLAG 
s98 * BITS 14-8, UNUSED 
599 * BITS 7-0, PROTECT KEY 
000002 A 600 PSBADT EQU 2 ADDR.OF BAD TRACK TABLE 
000003 A 601 PSNSEC EQU 3 AOOR.OF NEXT AVAILABLE SECTOR IN PARTITN 
000004 A 602 PSEND E€QU 4 PARTITION END ADDR + 1. ALSO BEGINNING 
603 * ADDR FOR NEXT PARTITION. 
604 * 
605 * 
606 EVEC 
607 * 
608 DATA CONTROL BLOCK, DCB 
609 
610 A OCB IS REFERENCED BY EACH 1/0 REQUEST BLOCK,ROBLK, SPECIFY- 
611 ING A NON-ROTATING MEMORY DEVICE. DCB CONTAINS ADDITION INFOR~ 


DCB IS A FIXEO LENGTH TABLE OF 3 WORDS EACH. THE FCB IS THE DCB 


. 
. 
. 
6le * MATION NECESSARY TO COMPLETE THE I/O OPERATION. 
. 
. EQUIVALENT FOR RMD. 

. 


615 
616 * 
000000 A 617 DCRECL EQU tt) RECORD LENGTH 
00000! A 618 DCBUFF EQU 1 USER BUFFER AREA 
000002 A 619 DCCNT EQU e NO. OF COUNTS,USE FOR FUNC REQUESTS. 
620 * 
621 * 
6ee * 
000001 A 623 x EQu 1 
000002 A 624 B Equ é 
000200 A 625 POST E£QU 0200 POST INDEXING FLAG 
EVEC 
eee 
TABLE NAME IS CTB (CONTROLLER TABLE ) 
POAT E ROSES EROS ESET SEEEOSEE OED ESESEOEEESESSOERESSSSESESOSESES OED 
2 FIELD WORD BIT DESCRIPTION 
631 ** 
632 «2 ACT 0 15-15 CONTROLLER ACTIVE FLAG 
000000 A 633 CTACT EQU 0 
000017 A 634 CTACTB EQU 15 
000001 A 635 CTACTZ EQu 1 
636 ** 108 0 0-14  ORIVER TIDB ADOR 
000000 A 637 CTIDB EQU to) 
000000 A 638 CTIDBB EQU 0 
000017 A 639 CTIDBZ EQU 15 
64O *#¢ ADN 1 0-15 CTBL THREAD 
000001 A 641 CTADN EQU 1 
000000 A 642 CTAONB EQU 0 
000020 A 643 CTAONZ EQU 16 
644 #6 OPM 2 0-15 OP CODE MASK 
000002 A 645 CTOPM EQU 2 
900000 A 646 CTOPMB EQU t) 
000020 A 647 CTOPMZ EQU 16 
648 ** OsT 3 0-15 ADDRESS OF OST 
000003 A 649 CTDST EQU 3 
000000 A 650 CTOSTB EQU t) 
000020 A 651 CTOSTZ EQU 16 
652 ** RQB " 0-15 CURRENT REQUEST BLOCK 
000004 A 653 CTROB EQU 4 
000000 A 654 CTROBB EQU t) 
000020 A 655 CTRQBZ EQU 16 
656 ¢* RTR t-] 8-15 RETRY CONSTANT 
000005 A 657 CTRTR EQU 5 
000010 A 658 CTRTRB EQU 8 
000010 A 659 CTRTRZ EQU 8 
660 ** RCN 5 0- 7 VS$ERR RETRY COUNTER 
000005 A 661 CTRCN EQU i.) 
000000 A 662 CTRCNB EQU C) 
000010 A 663 CTRCNZ EQU 8 
664 #* DVA 6 0-15 DEVICE ADDRESS 
000006 A 665 CTDVA EQU 6 
000000 A 666 CTOVAB EQU 0 
000020 A 667 CTDVAZ EQU 16 


668 ** 10A i 0-15 1/0 ALGORITHM VALUE eeneneneee 


VTAM AL TCSCEX ( 8) 


000007 A 669 CTIOA EQU 2 
000000 A 670 CTIOAB EQU 0 
000020 A 671 CTIOAZ EQU 16 
672 *¢ STA 8 0-15 ORIVER STATUS 
000010 A 673 CTSTA EQU 8 
000000 A 674 CTSTAB EQU 0 
000020 A 675 CISTAZ EQU 16 
676 ** BIC 9 0-15 BIC FLAG TABLE ADDRESS 
000011 A 677 CIBIC EQU 3 
009000 A 678 CTBICB EQU 0 
000020 A 679 CTBICZ EQU 16 ‘ 
680 ** FCB 10 0-15 FCB/DCB ADDRESS 
000012 A 681 CTFCB EQU 10 
000000 A 682 CTFCBB EQU r) 
000020 A 683 CTFCBZ EQU 16 
684 ** WOS i 0-15 NO. WHOS. TRANSFERRED 
000013 A 685 CTWOS EQU il 
000000 A 686 CTWOSB EQU 0 
000020 A 687 CTWOSZ EQU 16 
688 ** FRC 12 8-15 FREQUENCY CONSTANT 
000014 A 689 CIFRC EQU 12 
000010 A 690 CTFRCB EQU 8 
000010 A 691 CTFRCZ EQU 8 
692 ** FRE 12 0- 7 FREQUENCY COUNT 
000014 a 693 CTFRE EQU 12 
000000 A 694 CTFREB EQU r) 
000010 A 695 CTFREZ EQU 8 
696 EVEC 
697 POORER EEESEESE ESOS SES ESE SESE SESESESOSH EES ESE ESESESESEEHESEHE SESE EEE 
698 TABLE NAME IS DMT (DEVICE MANAGEMENT TABLE ) 
699 errr ryevrerrrrerrrrrrrriviririrTrrivirirrrirrrririere eri erect 
700 IELD WORD BIT DESCRIPTION 
1 
702 #8 TPA 13 0-15 TRANSMIT PRIMITIVE ADDRESS: 
000015 A 703 OMTPA QU 13 
000000 A 704 OMTPAB EQU C) 
000020 A 705 DMTPAZ EQuU 16 
706 ** RPA 14 0-15 RECEIVE PRIMITIVE ADDRESS 
000016 A 707 OMRPA EQU 14 
000000 A 708 OMRPAB EQU C) 
000020 A 709 DMRPAZ EQU 16 
710 #* FPA 15 0-15 FUNCTION PRIMITIVE ADORESS** 
000017 A 711 OMFPA QU 15 
000000 A 712 OMFPAB EQU t) 
000020 A 713 OMFPAZ EQU 16 
14 #8 STA 16 0-15 STATUS PRIMITIVE ADDRESS 
000020 A 715 OMSTA Eau 16 
000000 A 716 OMSTAB EQU t) 
000020 A 717 DMSTAZ EQU 16 
718 + LCA 17 0-15 LCH BASE ADDRESS 
000021 A 719 OMLCA EQU 17 
000000 A 720 OMLCAB EQU C) 
000020 A 721 DMLCAZ EQU 16 
Tee ** LTA 18 0-15 LOGICALLINE TABLE BASE ADD** 
000022 A 723 DMLTA EQU 18 
000000 A 724 DMLTAB EQU t) 
000020 A 725 DMLTAZ EQU 16 ° 
726 #* PTA 19 0-15 PHYSICAL LINE TABLE BASE A** . 
000023 A 727 OMPTA EQU 19 * 
000000 A 728 DMPTAB EQU . 
000020 A 729 OMPTAZ EQU 16 * 
730 ** CHA 20 0-15 CONTROL WORD ADDR . 
000024 A 731 OMCWA EQU 20 * 
000000 A 732 OMCWAB EQU r) . 
000020 A 733 OMCWAZ EQU 16 . 
734 08 SHA ai 0-15 STATUS WORD ADDR * 
000025 A 735 OMSWA EQU 21 
000000 A 736 OMSHAB EQU r) 
000020 A 737 DMSWAZ EQU 16 
738 EVEC 
PPITTITetrrrrrrrriitirrritiriieettiteiiiitett te 
TABLE NAME IS LCW (LINE CONTROL WORDS 
PPUTTESERTSTTTTTITITITITTTTirrirrieririrririritrrr rire 
Wee FIELO WORD BIT DESCRIPTION 
TH3 #8 
THy o° 1BF C) 15-15 INPUT BLOCK FLAG 
000000 A 745 LCIBF_EQu 0 
000017 A 746 LCIBFB EQU 15 
000001 A 747 LCIBFZ EQU 1 
748 #8 ‘SMB C) 14-14 SET 2*°7 ON 
000000 A 749 LCSMB_ EQU C) 
000016 A 750 LCSMBB EQU 4 
000001 A 751 LCSMBZ EQU 1 
752 #8 18L C) 0-11 INPUT BUFFER LENG. 
000000 A 753 LCIBL_ EQU Q 
000000 A 754 LCIBLB EQu C) 
000014 A 755 LCIBLZ EQU 12 
756 #° IBA 1 0-14 INPUT BUFFER ADOR 
000001 A 757 LCIBA EQU 1 
000000 A 758 LCIBAB EQU C) 
000017 A 759 LCIBAZ EQU 15 
760 ** 1¢1 2 8-15 INPUT CONTROL CH 1 
000002 A 761 LCIC! QU 2 
000010 A 762 LCICI8 EQU 8 
000010 A 763 LCICIZ EQU 8 


764 *¢ Ice 2 o- 7 INPUT CONTROL CH 2 


VTAM Al 


000002 
000000 
000010 


000003 
000017 
000001 


000003 
000014 
000003 


000003 
000013 
000001 


000003 
000012 
000001 


000003 
000000 
000004 


000004 
000017 
000001 


000004 
000000 
000014 


000005 
000000 
000017 


000006 
000000 
000020 


000006 
000017 
000001 


000006 
000016 
000001 


000006 
000015 
000001 


000006 
000014 
000001 


000006 


000013 
000001 


000006 
000012 
000001 


000006 
000011 
000001 


000006 
000010 
000001 


000007 
000017 
000001 


000007 
000000 
000004 


000000 
000000 
000020 


000001 
000000 
000020 


000002 
000000 


>>> >>> >> Per PED 


>>> >>> PPr> 


>>> 


>>> > r> > & Shh HOH SHH SHO HPD 


>>> Pr r> m >> 


>> >>> herr 


765 LCIce 

766 LCICeB 
767 LCICez 
768 ** 

769 LCRCC 

770 LCRCCB 
771 LCRCCZ 
Tie: $e 

773 LCCRC 

774 LCCRCB 
775 LCCRCZ 


777 LCABN 
778 LCABNB 
779 LCABNZ 


780 ** 

781 LCASY 

782 LCASYB 

783 LCASYZ 

784 #* 

785 LCIKE 

786 LCIKEB 

787 LCIKEZ 
ord 


789 LCOBF 

790 LCOBFB 

791 LCOBFZ 
oe 


793 LCOBL 
794 LCOBLB 
795 LCOBLZ 


797 LCOBA 

798 LCOBAB 

799 LCOBAZ 
oe 


801 LCLCB 

802 LCLCBB 

803 LCLCBZ 
oe 


805 LCCWS 

806 LCCWSB 

807 LCCWSZ 
oe 


809 LCCWI 

810 LCCWIB 

811 LCCWIZ 
oe 


813 LCCWC 

814 LCCWCB 

815 LCCWCZ 
ry 


817 LCCWB 

818 LCCWEB 

819 LCCHBZ 
oo 


821 LCCWD 


834 LCCWTB 

835 LCCHTZ 

836 *« 

837 LCLTB 

838 LCLTBB 

839 LCLTBZ 
oe 


841 LCOKE 
842 LCOKEB 
843 LCOKEZ 


Wn4 


foxy 


TCSCEX 


15-15 


1e-14 


11-11 


10-10 


15-15 


15-15 


14-14 


13-13 


12-12 


10-10 


0-15 


TERM ON CONT CHAR 


NO BYTES IN CRC 


TERM ON ABN COND 


SYNC/ASYNC FLAG 


INPUT MAP BITS 


OUTPUT BLOCK FLAG 


OUTPUT BUFFER LENG. 


OUTPUT BUFFER ADDR 


LINE CONTROL BYTE 


PCW S BIT 


PCW I BIT 


PCW C BIT 


PCW AR/B BIT 


PCW OTR BIT 


PCW E/P BIT 


PCW R BIT 


PCH T BIT 


OUTPUT BREAKS FLAG 


OUTPUT MAP BITS 


DESCRI 
LSD THREAD CELL 


REQUEST THREAD 


READ COMPLETION ADDRESS 


PAGE 


SOROS R SRO CO REO O TEETER ORO ETEEEO ERED DOO EOESSOROOOS 


(LINE SERVICE DESCRIPTOR 


VTAM Al 
000020 


000003 
000000 
000020 


ooo004% 
000000 
000020 


000005 
000000 
ooo0e0 


000006 
000000 
000020 


000007 
000000 
000020 


000010 
000000 
00020 


000011 
000000 
000020 


000012 
000000 
000020 


000013 
000000 
000020 


o00014 
000016 
000002 


000014 
000014 
oo0002e 


oo0014 
000013 
000001 


000014 
000011 
000002 


000014 
000000 
000011 


000015 
000010 
000010 


000015 
000000 
000010 


000016 


000017 
000001 


000016 
000016 
000001 


000016 
000013 
000003 


000016 
000010 
000003 


000016 
000000 
000010 


000017 
000017 
000001 


000017 
000016 
000001 


000017 
000015 
000001 


>>> Per PPP > 


>>> Pre PPD 


>> > Ph > Phere Phe HPP HHH HP HH & PPK POH FHF HHH SHH PHP> SPH SPOS Per HPD 


861 


LSRCAZ 
LSREM 
LSREMB 
LSREMZ 
LSRTO 
LSRTOB 
LSRTOZ 
ae 
LSSRS 
LSSRSB 
LSSRSZ 
LSHCA 
LSWCAB 
LSWCAZ 
LSWEM 
LSWEMB 
LSWEMZ 
LSHTO 
LSWTOB 
LSWTOZ 


or 
LSSHS 
LSSWSB 
LSSWSZ 
oe 
LSCTA 
LSCTAB 
LSCTAZ 
oe 


LsosT 
LsOSTB 
LsOsTz 
oe 
LSMOD 
LSMOOB 
LSMODZ 
oe 
LSPAR 
LSPARB 
LSPARZ 
oe 
LSASY 
LSASYB 
LSASYZ 
oo 
LSXMM 
LSXMMB 
LSXMMZ 
o 
LSLsP 
LSLSPB 


LSLSPZ 
rr 


LSTERB 
LSTERZ 
v7 


EQU 


12 


12 


12 


12 


13 


13 


14% 


14 


14 


14 


0-15 


14-15 


12-13 


15-15 


14-14 


14-14 


13-13 


« 10) PAGE 


READ EVENT MASK 


READ TIME OUT 


STATIC RECEIVE STATUS 


WRITE COMPLETION ADDRESS 


WRITE EVENT MASK 


WRITE TIMEOUT 


STATIC WRITE STATUS 


CCM CONTROLLER TABLE AOORE* 


DYNAMIC STATUS 


MODEM TYPE 


PARITY MODE 


ASYNC/SYNC FLAG 


TRANSMISSION MODE 


LINE SPEED 


CONTROL CHARACTER 1 


wees essereensesseeese 


E/P FLAG 


WRITE REQUEST STATUS 


READ REQUEST STATUS 


eceeesesseseses 


PHYSICAL LINE ADDRESS 


D/S FLAG 


INPUT SYNC CONTROL 


STOP RQST ON ABN STATUS 


VTAM AL 


000017 
ooo01e 
000003 


000017 
000011 
ooooo! 


000017 
000000 
go0010 


ooo020 
oo0010 
000006 


000020 
000000 
000010 


000000 
000000 
000020 


ooooo! 
000000 
oo0020 


000002 
000000 
000020 


000003 
000000 
000010 


000003 
000010 
000010 


ooocoy 
000000 
oo0010 


000004 
000010 
ooooot 


000004 
000011 
000001 


000004 
000012 
000002 


000004 
000014 
00000! 


000004 
000015 
000001 


000004 
000016 
000001 


000004 
000017 
000001 


000005 
000000 
000004 


000005 
oo00004% 
000004 


000005 
000010 
000004 


000005 
000014 
ooo004 


000006 


>>> Pre 


>>> SPS Ph SPOS FHS PPP PPD 


>>> Per 


> Prr PPD 


TCS$CEX Coa) 


Sete cRC 15 10-12 NO. OF CRC BYTES 
LscRC_ EQU 15 

LSCRCB EQU 10 

LSCRCZ EQU 3 

ae ASC 15 9- 9 7-BIT ASCII MODE FLAG 
LSASC EQU 15 

LSASCB EQU g 

LSASCZ EQu 1 

we YNT 15 o- 7 XMIT SYNC CHAR 
LSYNT EQU 15 

LSYNTB EQU 0 

LSYNTZ EQU 8 


os NTO 16 8-13 NO. TERM. OPEN ON LINE 
LSNTO EQU 16 
LSNTOB EQU 8 

6 


LSNTOZ EQU 

oe YNR: 16 0- 7  RECV SYNC CHAR 
LSYNR_ EQU 16 

LSYNRB EQU i) 

LSYNRZ EQU 8 


EJEC 


Prevereeeererrrrr rrr) 
oe TABLE NAME IS TCO (TERMINAL CNTRLR DESCRIPTOR) 

PPVeerrrrrrrrerrrririrrtrerrr iittala 
oe FIELD WORD BIT DESCRIPTION . 
oo * 


ee TcD oO 0-15 AORS OF NEXT TCD IN QUEUE * 


eeeeeees 


bedaad RQH 1 0-15 HEAD OF REQUEST QUEUE 


oe CTA e 0-15 ADRS OF CONTRLR TBL FOR TC* 


ae CLN 3 O- 7 LUN FOR THE CCM 


3 8-15 LOGICAL LINE NUMBER 


4 8- 6 1 SWITCHED LN, 0 NOT SWITC® 


x4 
° 
ir 
c 
z 
Nn 
2 
-—@rf MOF @OW DOW 


pail BSL 4 9 1 BIN SYNC LN, 0 ASYNC 


4 
o 
o 
a 
ta 
a 
a 

-or 


ee XMM 4 10-11 TRANSMISSION MODE 


x 
° 
4 
z 
4 
a 
Fs 

ves 
° 


oe ECH 4 12-12 1 NO ECHO, 0 ECHO FULL DUP* = 


TCECHB EQU 

TCECHZ EQU 

=e. CON 9 13-13 1 PHYS CON MADE, 0 NOT MAD* 

TCCON EQU 4 

TCCONB EQU 1 
1 


TCCONZ EQU 

bes WeC 4 14-14 0 WO COUNT FOR WRITE, 1 BY* 

TCWBC EQU 4 

TCWBCB EQU 14 

TCWBCZ EQU 1 anes 

oa RBC 4 15-15 0 WORD COUNT FOR READ, | Beeeeee 

TCRBC  EQU 4 3 

TCRBCB EQU 1 
1 


TCRBCZ EQU 
ae NTD 5 O- 3 NO. DEVICES THIS TERMINAL * 


5 4- 7 NO. DEVICES OPEN THIS TERM® 
Ss 8-11  TSD/TCM TYPE . 
5 12-15 TRANSMISSION CODE TYPE = 
TccTPZ EQU 


RMO 
TCRMD EQU 


6 O- 2 MODE OF READ OPERATION eeeeee 


VTAM AL 


000000 
oo0003 


000006 
000003 
000003 


000006 


000006 
000003 


000006 
000011 
000003 


000006 
ooo014 
000001 


000007 
000000 
000020 


000010 
000000 
000020 


000011 
000000 
000020 


ooo0le 
000000 
000020 


000013 
000000 
000020 


000014 
000000 
00020 


000015 
000000 
000020 


000016 
000000 
oo0020 


000015 
000000 
000020 


000016 
000000 
000020 


000017 
000000 
000020 


ooo000 
000016 
oo00002 


ooo000 
oo0014 
oo0c02 


000000 
000013 
000001 


000000 
000011 
000002 


000000 
000000 
000011 


>> > 


>>P> SP > SPP> SPS FHS FPP PHS PES PPP FPP 


>>> Pr> PH rr 


>>> Ph> PPh POe Ped 


eqagsiesegesereretey--1-1-T-T-} 
BE trr eer tt rset tetat ttt bs 


TCSCEX « 12) 


TCRMDB EQU O 

TCRMDZ EQU 3 

iro WMD 6 3-5 MODE OF WRITE OPERATION 

TCHMD EQU 6 

TCWMOB EQU 3 

TCWMDZ EQU 3 

bla RRS 6 6- 8 READ REQUEST STATUS 

TCRRS EQU 6 

TCRRSB EQU 6 

TCRRSZ EQU 3 

=x WRS 6 9-11 WRITE REQUEST STATUS 

TCWRS EQU 6 

TCWRSB EQU 9 

TCWRSZ EQU 3 

ae LOF 6 12-12 LINE DISCONNECT FLAG 

TCLOF EQU 6 

TCLOFB EQU 12 

TCLOFZ EQU 1 

oe RCA 7 0-15 CCM READ RQST BLOCK ADRS 

TCRCA_ EQU 7 

TCRCAB EQU 0 

TCRCAZ EQU 16 

head sTo 8 0-15 READ TIMEOUT VALUE 

Testo EQU 8 

TCSTOB EQU i) 

TCSTOZ EQU 16 

hdd WCA 9g 0-15 CCM WRITE RQST BLOCK ADRS ** 

TCHCA EQU +) 

TCWCAB EQU oO 

TCWCAZ EQU 16 one . 
at occ 10 0-15 DYNAMIC CHAR COUNT FOR REA**®* ° 
Tceocc EQU 10 * 
TCOCCB EQU 0 * 
tTepccz EQu 16 ° 
i REF i 0-15 DYNAMIC READ BUFR ADRS ° 
TCREF EQU uw id 
TCREFB EQU ) ° 
TCREFZ EQU 16 e 
om oTO 12 0-15 DYNAMIC READ TIMEOUT VALUE*###* * 
TCOTO E£QU 12 

TCOTOB EQU 0 

TCDTOZ EQu 16 

abel 101 13 0-15 1ST 2 CHAR OF TUIO 

TCIOl EQU 13 

TCIOIB EQu 0 

TC1ID1Z EQU 16 

bali 102 4 0-15 2ND 2 CHAR OF TUID RORGOHHSSS 


DESCRIPTION 
RPA 13 0-15 READ PROCESSOR ADDRESS 
TPRPA EQU 13 
TPRPAB EQU 0 
TPRPAZ EQU 16 
oe WPA 14 0-15 WRITE PROCESSOR ADDRESS 
TPHPA EQU 14% 
TPHPAB EQU t) 
TPHPAZ EQU 16 
bain FPA 15 0-15 FUNC PROCESSOR ADDRESS 


DESCRIPTION 
MODEM TYPE 


£ 


) 12-13 PARITY MODE 


0 11-11 = SYNC/ASYNC FLAG 


: 
2 
m 
2 
-7°o Mero M20 


oe XMM t) 9-10 TRANSMISSION MODE 


t) O- 6 LINE SPEED 


D 

oO 

4 

F3 

N 

m 

2 
©oo nwo 


ss cei 1 8-15 CONTROL CHARACTER 1 


VTAM AL TCSCEX ( 13) PAGE 13 


000001 A 1149 PSCC1_ EQU 1 
000010 A 1150 PSCCIB EQU 8 
000010 A 1151 PSCCiZ EQU 8 
LRe vee: cce 1 o- 7 CONTROL CHARACTER 2 cone 
000001 A 1153 PSCCe2 EQU 1 
000000 A 1154 PSCC2B EQU 0 
000010 A 1155 PSCCezZ EQU 8 
1156 e* TER e 1Gea15 READ TERMINATION CONTROL * 
900002 A 1157 PSTER EQU 2 
000017 A 1158 PSTERB EQU 15 
000001 A 1159 PSTERZ EQU 1 
1160 #* EPF 2 14-14 E/P BIT IN DCM om 
000002 A 1161 PSEPF EQU 2 
000016 A 1162 PSEPFB EQU 4 oe = 
000001 A 1163 PSEPFZ EQU 1 eeenneee 


1164 #* DWN 2 9-9 LINE DOWN FLAG seaneennes 


000002 A 1165 PSDWN EQU a oe 
000011 A 1166 PSOWNB EQU 9 
000001 A 1167 PSDWNZ EQU 1 
1168 #* DEF 2 8- 8 LINE DEFINED FLAG 
000002 A 1169 PSDEF EQU 2 
000010 A 1170 PSDEFB Eau 8 
000001 A 1171 PSDEFZ EQu 1 
1172 PLA 2 o- 7 PHYSICAL LINE ADDRESS 
000002 A 1173 PSPLA QU 2 
000000 A 1174 PSPLAB EQU 0 
000010 A 1175 PSPLAZ EQu 8 
1176 #8 osF 3 15-15 DS/S BIT IN DCM 
000003 A 1177 PSOSF_EQU 3 
000017 A 1178 PSOSFB EQU 15 
000001 A 1179 PSDSFZ EQU 1 
1180 ** YNC 3 14-14 — RESYNC ON READ 
000003 A 1181 PSYNC EQU 3 
000016 A 1182 PSYNCB EQU 14 
000001 A 1183 PSYNCZ EQU 1 
1184 #* ABN 3 13-13 ERROR STOP FLAG 
000003 A 1185 PSABN EQU 3 
000015 A 1186 PSABNB EQU 13 
000001 A 1187 PSABNZ EQU 1 
1188 #* RC 3 10-12 INPUT CRC COUNT 
000003 A 1189 PSCRC_ EQU 3 
000012 A 1190 PSCRCB EQU 10 
000003 A 1191 PSCRCZ EQu 3 
1192 #8 3 0- 7 SYNC XMIT BYTE 
000003 A 1193 PSYNT 3 
000000 A 1194 PSYNTB 0 
000010 A 1195 PSYNTZ 8 
1196 #* 4 0- 7 SYNC RECV BYTE 
000004 A 1197 PSYNR 4 
000000 A 1198 PSYNRB 0 
000010 A 1199 PSYNRZ 8 
eee seen 
eevee seve 
1204 ** =~ FIELD BIT DESCRIPTION 
1205 ** 
1206 ** ULN 0 8-15 LOGICAL LINE NUMBER 
000000 A 1207 PCLLN EQU 0 
000010 A 1208 PCLLNB EQU 8 
000010 A 1209 PCLLNZ EQU 8 
1210 #* CLN 0 O- 7 LOGICAL UNIT OF CCM 
000000 A 1211 PCCLN EQU C) 
000000 A 1212 PCCLNB EQU 0 
000010 A 1213 PCCLNZ EQU 8 
1214 s* ECH 1 12-12 ECHO ON FULL DUPLEX 
000001 A 1215 PCECH EQU 1 
000014 A 1216 PCECHB EQU 12 
000001 A 1217 PCECHZ EQU 1 
1218 s* XMM 1 10-11 TRANSMISSION MODE 
000001 A 1219 PCXMM EQU 1 
000012 A 1220 PCXMMB EQU 10 
000002 A 1221 PCXMMZ EQU 2 
1222 #8 BSL 1 9-9  BISYNC FLAG 
000001 A 1223 PCBSL_ EQuU 1 
000011 A 1224 PCBSLB EQU 9 
000001 A 1225 PCBSLZ EQuU 1 
1226 ** SWL 1 8- 8 SWITCHED LINE FLAG 
000001 A 1227 PCSWL_ EQU 1 
000010 A 1228 PCSWLB EQU 8 
000001 A 1229 PCSWLZ EQU 1 
1230 *# PCH 1 o- 7 TERMINAL PROMPT BYTE 
000001 A 1231 PCPCH EQU 1 
000000 A 1232 PCPCHB EQU 0 
000010 A 1233 PCPCHZ EQU 8 
1234 #6 cTP 2 12-15 CODE TYPE 
000002 A 1235 PCCTP EQU 2 
000014 A 1236 PCCTPB EQU 12 
000004 A 1237 PCCTPZ EQU 4 
1238 ** TYP 2 8-11 TCD/TCM TYPE 
000002 A 1239 PCTYP EQU 2 
000010 A 1240 PCTYPB EQU 8 
000004 A 1241 PCTYPZ EQU 4 


1eya +6 NTD 2 O- 3 NUMBER OF DEVICES ereneccess 
000002 A 1243 PCNTD EQU oe 
000000 A 1244 PCNTOB EQU 


on 


VTAM Al 


ooco00 


000001 
000002 
000003 
000004 
000005 
000006 


00004 


oo0000 
000000 
000020 


000001 
000000 
000020 


000002 
000017 
ooooo1 


000002 
000007 
000010 


oo0000e 
000000 
000007 


000003 
000017 
ooo001 


000003 
000007 
000010 


000003 
000000 
000007 


000000 
000000 
000020 


000000 
000001 
oooo0e 
014023 
056000 
014023 
056001 
010440 
o56002 


>>> FOr SPH PHOS PES FHS PHS PES PPP 


>> rrr r>>r> 


PCNTDZ 


SERA R ee eee EERE ERSTE SESE NESSES SESESEEEESEEESESESESOSS TESST SESOSESEOES 


(TERMINAL INDEX BLOCK ) 


Pee UrOPeeerirrerrcr irri rrrrire rrr terete titties 


EQu 
EJEC 


TABLE NAME IS TIB 


oe FIELD 


TITUIZ 
oo 
TiTve 
TITU2B 
TITUeZ 
oe 
TIOWN 
TIOWNB 
TIDWNZ 
e 


TISEC 
TISECB 
TISECZ 
ee 


TIOSP 
TIOSPB 
TIDSPZ 
oe 


TIOON 
TIOONB 
TIODNZ 
oe 


TIOSC 
TIOSCcB 
T1OSCZ 
ee 


TIOOP 
TIOOPB 
TIODPZ 
ee 
TINET 
TINETB 
TINETZ 


GETMEM 


PUTMEM 


ENTRY CONDITIONS 


4 


0 
) 
0 
16 

1 
1 
0 
16 

e 
e 
15 
1 

2 
e 
7, 
8 

e 
e 
0 
7 

3 
3 
15 
1 

3 
3 
7 
8 

3 
3 
0 
T 

0 
0 
oO 
16 
P(e) 
PCL) 
46 
VSEXEC,1 
0600 
VTSGTM 
. 
PLD 
P(2) 
+6 
VSEXEC,1 
0600 
VTSPTM 
. 
TCSBRQ 


NAME - 
TCSBRQ - SETS UP SKELETON CCM RQST BLK 


TCSCEX 


BIT 
0-15 


15-15 


15-15 


7-14 


0-15 


(%) = TCD ADDRESS 


(B) = ADDRESS OF ALLOCATED MEMORY FOR RQST BLK 
(CCM RQBLK SIZE MUST BE 12 WORDS OR MORE) 


EXIT CONDITIONS - 

(X) UNCHANGED 
(B) UNCHANGED 
(A) DESTROYED 


CALLING SEQUENCE ~ 
JMPM TCSBRQ 


(RETURN) 


SET UP VSIOC CALL 


CLEAR STATUS WORD, SET COMPLETE BIT 


€ 14) PAGE 14 


DESCRIPTION * 
FIRST TWO CHARS OF TUID * 


oe 


SECOND TWO CHARACS OF TUID*#** 


TERMINAL DOWN FLAG 


SECTOR POINTER 


DISPLACEMENT 


LOD DOWN FLAG 


OLD SECTOR POINTER 


OLO DISPLACEMENT 


NUMBER OF ENTRIES 


oneee 
aoe 


VTAM Al 


000007 
000010 
oooo!l! 
oooole 
000013 
oooo14 
000015 


000016 
000017 
000020 
o000e1 
000022 
000023 
00024 


000025 
000026 


000027 


000030 
000031 
000032 
000033 
000034 
000035 
000036 


000037 
000040 
00004) 
oo004e 
000043 


000044 
000045 


000046 
000047 


000050 
000051 
000052 
000053 
000054 


000055 
000056 
000057 
000060 
000061 
000062 


015003 
150463 
110440 
056003 
005021 
120470 
056004 


015003 
004350 
056013 
014004 
056007 
001000 
100000 


006505 
001000 


000000 


000000 
006017 
900030 
054045 
005001 
001000 
000044 


900000 
006017 
000037 
054036 
010421 


054035, 
005041 


1eoyel 
054033 


006017 
100103 
001010 
000100 
005012 
000002 


016001 
004350 
150472 
140422 
001010 
000100 


POSS rorye 


D>>>rDS> 


D>>>ryry Pr D>D> 


1341 


1342 
1343 
1344 
1345 
1346 
1347 


1348 
1349 
1350 
1351 


1352 * 
1353 
1354 
1355 
1356 


1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 #¢ 
1365 ** 
1366 ** 
1367 ** 
1368 ** 
1369 *# 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 


1383 
1384 TCSFRR 
1385, 


1386 
1387 
1388 


1389 


1390 TCSFWR 
1391 


1392 
1393 
1394 


1395 FROL 
1396 ¢ 
1397 
1398 


1399 
1400 
1401 FROS 
1402 
1403 


1404 RQST 
1405 


1406 
1407 


FETCHA 


ORA 
STA 
TBA 
AOD 
STA 
FETCHA 


PROGRAM NAME — 


aoe 


TCSCEX ( 15) PAGE 


TCD, TCCLN, TCCLNB, TCCLNZ 


BsI5 IMMEDIATE RETURN 

3,RQBLK STORE CCM LOGICAL UNIT 
BUILD AN LCB 

NINE 

4 ,ROBLK 


TCD, TCLLN, TCLLNB, TCLLNZ 


11,RQBLK STORE LOGICAL LINE NUMBER 
JMPWD 
7,RQBLK STORE JMP INSTRUCTION 
TC$BRQ 
CONSTANTS 
006505 JUMP AND SET RETURN IN X REG INST. 
001000 JUMP UNCONDITIONAL INST. 
V$IOC 
V$I0C 


TCSFRR 


TCSFRR - TCSFWR - FIND NEXT READ OR WRITE ROST ON 
TCD REQUEST QUEUE 


ENTRY CONDITIONS - 


OO = TCD ADDRESS 


EXIT CONDITIONS - 


CALLING 


NAME 
ENTR 
LDAE 


STA 
TZA 
JMP 


SPACE 


ENTR 
LDAE 


STA 
LDA 
‘SPACE 
STA 


TXA 
ADAT 


STA 
SPACE 
LOAE* 
JAZ 
TAB 


SET 
FETCHA 


SUB 
JAZ 


(X) UNCHANGED 
(B) DESTROYED 
(A) .GT. 0, (A) = ADDRESS OF NEXT REQUEST OF TYPE 
(A) .EQ. 0, NO REQUEST OF TYPE DESIRED AVAILABLE 


SEQUENCE - 
JMPM — TCSFRR 


OR 
JMPM =—- TCSFWR 
(RETURN) 


TCSFRR, TCSFWR 
READ ROST ENTRY 
TCSFRR EXIT SETUP 
FRXIT+1 
SET RQST TYPE TO READ 
FROL 
5 
WRITE RQST ENTRY 
TCSFWR 
FRXIT+1 
ONE SET RQST TYPE TO WRITE 
e 
FROPCD 
FORM THE ADDRESS OF TCD REQUEST QUEUE POINTER 
TCRQH ADD DISPLACEMENT OF RQST QUEUE HEAD PTR 
FRRQST 
2 
FRRQST (A) = ADDR OF NEXT RQST IN QUEUE 
FRXIT END OF THRD,NONE FOUND. 


8 
RQST,ROPHD,8,4 


THO 
FRXIT WEOF RQST FOUND FIRST, NO FIND 


00066 


00067 
00068 
00069 
00070 
00071 
00072 


00073 
00074 
00075 
00076 


00077 
00078 
00079 
00080 
00081 


oo008e 
00083 
oo084 
oo08s 
00086 
00087 
00088 
oo089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 


oo108 
00109 
00110 


oon 
oo1e 
00113 


00114 


00115 
00116 


00117 
00118 
00119 


00120 
oolel 
00122 
00123 


00124 
00125 
00126 
001e7 
00128 


00129 
00130 


00131 
00132 


VTAM Al 


000063 
000064 
000065 
000066 
000067 
000070 
000071 
oo0072 


000073 
000074 
000075 
000076 


000077 
000100 
ooo1ot 


000102 
000103 


000104 
000105 
000106 
000107 
000110 
ooo111 


000112 
000113 
ooo114 


0011s 
000116 


000117 
000120 
000121 
000122 
000123 
000124 
o001e5 
000126 
0001e7 


000130 
000131 
000132 
000133 


140464 
001010 
000100 
120465 
144012 
001010 
000077 
005021 


120423 
054006 
001000 
000050 


PD>PrDS> 


D>>> 


005021 A 


oo1000 
000100 


000000 
000000 


000000 
007400 
001000 
000112 
000000 
007401 


054217 
064213 
005041 


120421 
os4el2 


006027 
100331 
001020 
000137 
005021 
134202 
001010 
000134 
005021 


120423 
054177 
001000 
000117 


A 
A 


D>>> D> >> D>D> 


TCSCEX ( 16) PAGE 16 


1408 SUB THREE 03 00133 
1409 JAZ FRXIT FUNC RQST FOUND FIRST, NO FIND 03 00134 
1410 ADD FIVE 03 00135 
1411 SUB FROPCD 03 00136 
412 JAZ FRIO 03 00137 
1413 TBA NOT REQUESTED TYPE, CHECK NEXT RQST 03 00138 
1414 ADAT RADNR 03 00139 
1415, STA FRRQST 03 00140 
1416 IMP FROS: 03 oo14t 
1417 SPACE 2 03 00142 
1418 FRIO TBA FOUND, SET (A) = ADDR OF RQST 03 00143 
1419 FRXIT JMP * RETURN 03 00144 
1420 SPACE 5 03 00145 
1421 FROPCD DATA Q OP-CODE OF REQUESTED TYPE 03 00146 
1422 FRRQST DATA 0 ADOR OF NEXT RQST IN TCD RQST QUEUE 03 00147 


PROGRAM NAME ~- 
TCSCRQ - VTAM TCM REQUEST COMPLETION PROGRAM 
TCSFRQ - ALTERNATE ENTRY POINT WHEN CCM STATUS NOT USE! 
ENTRY CONDITIONS - 
(A) = REQUEST STATUS, BITS 14-9 HOLDS ERROR CODE 
(B) = ADDRESS OF REQUEST 
(X)_= ADDRESS OF TCD 
INTERRUPTS DISABLED 
EXIT CONDITIONS ~ 
REQUEST IS DETHREADED FROM TCD REQUEST QUEUE AND PROPER**03 
STATUS AND COMPLETION BITS ARE SET IN RQST BLK. AND 
REQUESTOR'S TI1OB. 


(A) DESTROYED 
(B) DESTROYED 
(0) UNCHANGED 
INTERRUPTS DISABLED 


CALLING SEQUENCE - 
JMPM TCSCRQ OR JMPM TCSFRQ 


TCSCRQ, TCSFRQ 


ROF FLAG FOR ALTERNATE ENTRY 

UMP TCSCRQ+2 
1455 TCSCRQ ENTR 
1456 SOF FLAG FOR NORMAL ENTRY 
1457 SPACE 5 
1458 STA CRSTAT SAVE ROQST STATUS 03 00183 
1459, sTB CROST SAVE RQST ADDR 03 00184 
1460 * PERFORM HOUSEKEEPING FOR DETHREADING OF RQST 03 00185 
1461 TXA 03 00186 
1462 ADAT TCRQH CALCULATE ADDR OF TCD RQST QUEUE THREAD 03 00187 
1463 STA CRPREV POINTER AND SAVE IN PREVIOUS RQST CELL 03 00188 
1464 space 3 03 00189 
1465 * FIND THE REQUEST ON THREAD 03 00190 
1466 CRIO LOBE* CRPREV (B) = ADOR OF NEXT RQST ON THREAD 03 00191 
1467 JBZ CRISA NO RQSTS, NOT QUEVED ON TCD, IMMED. FUNC 03 00192 
1468 TBA 03 00193 
1469, ERA crRasT CHECK _IF NEXT RQST IS COMPLETED ONE 03 00194 
1470 JAZ cRIs YES, FOUND 03 00195 
1471 TBA NOT FOUND,SET UP TO CHECK NEXT RQST 03 00196 
1472 ADAT RADNR 03 00197 
1473 STA CRPREV 03 00198 
1974 JUMP cRIO 03 00199 


VTAM Al 


000134 
000135 
000136 


000137 


000140 


000141 
000142 


000143 
000144 
000145 
000146 


000147 
000150 
000151 
000152 


000153 


000154 
000155 
000156 
000157 


000160 
000161 
000162 
000163 
000164 
000165 
000166 


000167 


000170 
00017! 

000172 
000173 
000174 
000175 
000176 
000177 
000200 
000201 

000202 
000203 
000204 
000205 
000206 
000207 
000210 
oo02t! 

oo02i2 
000213 
000214 
000215 
000216 
000217 
000220 
000221 

ooo0ee2 
000223 
oo00ee4 
0002e5 
000226 
000227 


000230 
000231 
000232 
000233 


oe6004 
006067 
100331 


074170 


024166 A 


000002 


016003 
005014 
000001 


015021 
150477 
006140 
000041 


135021 
150477 
135021 
oss0e21 


024153 


016001 
004357 
001016 
000167 


004256 
135001 
004356 
150421 
004256 
135001 
055001 


034137 
00000! 

015000 
110440 
055000 
014136 
001007 
000250 
001004 
000260 
006407 
000216 
006441 

000221 

006150 
000440 
001010 
000261 

006405 
00244 
006010 
001035 
001000 
000261 

005001 

001000 
000254 
001016 
000226 
010466 
001000 
000261 

005101 
034100 
000001 


004254 
135006 
004354 
150421 


>>> 


>>> rrr 


>rr>rrrr V>>> 


PPP rH SOO VHS KH DE DH H DH yy DH DH yH rH DH DH DH yyy rrrr 


1476 
1477 
1478 


1473 


1480 
1481 
1482 


1483 
1484 
1485 
1486 
1487 
1488 
1489, 
1490 
1491 


1492 


1493 


1494 
1495 
1496 
1497 


1498 


cRIS 


CRISA 
=) 


creo 


CReOx 
Tco 


LOB 
SET 
FETCHA 


TAX 
SET 
FETCHA 


SuBI 
SETA 


SPACE 


LOB 
FETCHA 


JANZ 
SETA 


SPACE 


TCSCEX + ay PAGE 


REMOVE OBJECT ROST FROM QUEUE AND CLOSE THREAD 


RAONR ,B 
CRPREV 


‘| 


CRTCD 


SAVE TCD ADOR TO BE RESTORED ON EXIT 


DECREMENT NO. OF 1/0 REQUESTS ACTIVE AND QUEUED IN TBIO 
ENTRY OF REQUESTOR'S TIOB. 


CLEAR SUSPEND BIT IF WAIT SELECTED IN REQUEST 


cRQST 


GET TIOB ADDR FROM RQST 


8 
ROQST,RTIOB,0,16 


x 


(X) = ADDR OF TIDB 


DECREMENT NO. OF I/O ACTIVE AND QUEUED 
TIDB,T810,0,10 


oul 


TID8,TBI0,0,10 


2 


CLEAR SUSPEND BIT IF WAIT SELECTED 


CRQST 


RQST,ROPHD, 15,1 


CRIS 


17 


03 00201 
03 00202 
03 00203 


03 00204 


03 00205 
03 00206 
03 00207 


03 00208 
03 00209 
03 00210 
03 00211 


03 00212 
03 00213 
03 00214 
03 00215 
03 00216 


03 00217 


03 00218 


03 00219 
03 00220 
03 00221 


WAIT NOT SELECTED, DO NOT CLEAR SUSPEND 81T03 00222 


TIOB,TBST,TBS14,1 WAIT SELECTED, CLEAR TBS14 IN TBST 


2 


NOW SET 1/0 COMPLETE BIT IN REQUEST, 
AND SET APPROPIATE STATUS BITS IN 
RSTPR ENTRY OF USER REQUEST BLOCK. 


RA1+7,CRISA 
RAO+1 ,CR20 
0440 
CR50 
RA1+5,CR20A 
01035 
R50 


creoc 
CR20X 


SIx 
cR50 


o1 
CRTCO 


(X) = RQST ADDR 
SET 1/0 COMPLETE BIT IN RQST 


TIMED-OUT 

1/0 CLEAR 

DATA-SET-READY OFF/END-OF -F ILE (EOF) 
MASK OFF IRRECOVERABLE ERRORS 

NO ERRORS IN DETAIL STATUS FROM CCM 
PARITY ERROR, ELSE BREAK 

BREAK DETECTED 

CODE = 041,ERR FLG, COMP CODE = 5S(ERROR) 


REAL CCM STATUS, DSR OFF 


DETAIL STATUS=0, SET EOF COMP. CODE 
CODE=0, ERR FLG RESET, COMP CODE=6(EOF) 


CODE=0,ERR FLG SET, COMP CODE=6(0SR OFF) 
SET LINE DISCONNECT FLAG 


x 
TCD, TCLOF , TCLOFB, TCLDFZ 


03 00223 


03 00238 


03 00239 
03 00240 
03 00241 
03 o0e4e 


03 00243 
03 00244 


eeeeeeee 


03 00246 
03 00247 
03 00248 


VTAM AL TCSCEX « 18) PAGE 


000234 004254 A 
000235 135006 A 
000236 055006 A 
000237 034067 A 1527 Lox crast 03 00249 
000240 006010 A 1528 LDAI O16 03 00250 
000241 O000I6 A 
000242 001000 A 1529 JMP CR50 SET STATUS 03 00251 
000243 000261 R 
000244 006010 A 1530 CR20A LDAI 0615 CODE = 030, ERR FLG, COMP CODE = 5 03 00252 
000245 000615 A 
000246 001000 A 1531 JMP cR50 03 00253 
000247 000261 R 
1532 * CHECK FOR ERROR CODE BEING PASSED 03 00254 
000250 006150 A 1533 CR20B ANAI 0177000 CODE IN BITS 9-14 03 00255 
000251 177000 A 
000252 001010 A 1534 JAZ cRS50 NO ERROR 03 00256 
000253 000261 R 
900254 004345 A 1535 CR20C LSRA 5 SET ERR FLG. AND COMP. CODE(5) 03 00257 
000255 006110 A 1536 ORAL o1s 03 00258 
000256 000015 A 
000257 001004 A 1537 DATA 01004 03 00259 
000260 010467 A 1538 CR30 LDA SEVEN READ TIMEOUT, COMP CODE = 7 (EOD) 03 00260 
1539 ¢ SET COMPLETION STATUS IN RSTPR 03 00261 
1540 CR50 SETA RQST,RSTPR,5,10 03 00262 
000261 004245 A 
000262 135000 A 
000263 004345 A 
000264 150477 A 
000265 004245 A 
000266 135000 A 
000267 055000 A 
1541 SPACE 2 03 00263 
1542 © SET NO. OF BYTES/WORDS TRANSFERED 03 00264 
000270 024037 A 1543 LOB CRTCO 03 00265 
000002 A 1544 TCD SET 8 03 00266 
1545 FETCHA TCD,TCCTA,TCCTAB, TCCTAZ 03 00267 
000271 016002 A 
000272 005012 A 1546 TAB (B) = TCM CONTROLLER TABLE ADOR 03 00268 
000002 A 1547 CTB SET GET NO. OF BYTES/WORDS TRANSFERED 03 00269 
1548 FETCHA ere, CTWOS ,CTWOSB ,CTWOSZ 03 00270 
000273 016013 A 
000274 025003 A 1549 LoB RTIDB,RQST SAVE TIDB ADOR IS B REG. 03 00271 
000275 055003 A 1550 STA RTIDB,RQST STORE IN RTIOB OF ROQST 03 00272 
1551 SPACE 5 03 00273 
1552 * 03 00274 
1553 ¢ IF THE REQUESTING TASK IS BACKGROUND AND THE REQUEST oe 00275 
1554 ° IS IN THE FOREGROUND SAVE AREA, MOVE THE COMPLETED 3 00276 
1555 ° REQUEST TO THE BACKGROUND TASK AREA AND RETURN SAVE AREA. 03 00277 
1556 * 3 00278 
1557 SPACE 2 03 00279 
000276 005101 A 1558 INCR o1 03 00280 
00277 056003 A 1559 STA TBEVNT,B SET EVENT WORD IN TIOB NON-ZERO 03 00281 
000300 016001 A 1560 LDA TBST,.B 03 00282 
000301 006411 A 1561 BT RA1+9,CR60 EXIT, NOT A BACKGROUND REQUEST 03 00283 
000302 000320 R 
000303 005001 A 1562 TZA 03 00284 
1563 * PRIORITY 0 OR 1, MOVE ROST TO BACKGROUND TASK AREA 03 00285 
000304 025005 A 1564 LOB RADNR+1,RQST (8) = ADDR OF RQST IN BACKGROUND AREA 03 00286 
000305 055005 A 1565 STA RADNR+1,RQST RELEASE FOREGROUND SAVE AREA 03 00287 
000306 015000 A 1566 LDA 0.x 03 00288 
000307 056000 A 1567 STA 0.8 03 00289 
000310 015001 A 1568 LOA 1,x 03 o0e90 
00031! 056001 A 1569 STA 1,8 03 ooes1 
000312 015002 A 1570 LOA 2.x 03 o0e92 
000313 056002 A 1571 STA 2.8 03 00293 
000314 015003 A 1572 LDA 3.x 03 00294 
000315 056003 A 1573 STA 3,8 03 00295 
000316 015004 A 1574 LDA 4x 03 00296 
000317 056004 A 1575 STA 4,8 03 00297 
1576 SPACE 5 03 00298 
1st? * EXIT TO CALLER 03 00299 
000320 034007 A 1578 CR60 LDX cCRTCD RESTORE TCD ADDRESS TO X REGISTER 03 00300 
000321 001001 A 1579 JOF CREOA 03 00301 
000322 000325 R 
000323 001000 A 1580 JMP* TCSFRQ EXIT FOR ALT. ENTRY 03 00302 
000324 100104 R 
000325 001000 A 1581 CR60A JMP* TCSCRQ EXIT(RETURN) 03 00303 
000326 100110 R 
1582 EVEC 03 00304 
1583 © LOCAL STORAGE 03 00305 


000327 000000 A 1584 CRQST DATA 0 ADDRESS OF REQUEST 03 00306 


VTAM AL 


000330 000000 A 1585 
000331 900000 A 
000332 000000 A 1587 


000333 
000333 
000334 
000335 


000336 
000337 


000340 
000341 
000342 
000343 


000344 
000345 
000346 
000347 


000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 


000360 
000361 


000362 
000363 
000364 
000365 
000366 
000367 
000370 
000371 
000372 
000373 
000374 
000375 
000376 


000377 
000400 


000401 
000402 


000403 
000404 
000405 


000406 


000407 
000410 


030300 
005001 
055003 


006030 
000000 
000001 
035000 
001040 
oo04e4 
074312 


015007 
001010 
000403 
054304 


015014 
001010 
000361 
144305 
001010 
000376 
001004 
000376 


055014 


024272 
ogoo00e 
016002 
001004 
000367 
001000 
000403 
016010 
054264 
002000 
100655 
034262 
001000 
000403 
010461 


055014 
024253 
001000 
000367 


015011 
001010 
000340 


o54eu5: 


005012 
000002 
016002 


>DrErromy 


DP>y SDH HDS rr Dye Dy >>> & DH D> HD>> 


> D>r 


1586 


CRTCD DATA 
CRPREV DATA 
CRSTAT DATA 


EJEC 


* 


TCSCEX € 19) PAGE 19 


i) ADDRESS OF TCD 03 00307 
0 TEMPORARY FOR DETHREADING REQUEST 03 00308 
0 (A) UPON ENTRY, REQUEST STATUS 03 00309 


eee 


oe PROGRAM NAME ~- **03 00314 
ee TCSCEX - VTAM TCM COMMUNICATIONS EXECUTIVE **03 00315 
oo **03 00316 
oo ENTRY CONDITIONS - **03 00317 


oe 


TCSCEX BSS 


TCD SET 
CE!1O  LDXx 


FETCHA 
JAZ 


STA 
SPACE 


FETCHA 


CE20A LDA 
STA 
JMPM* 


LOx 
IMP 


CE208 LDA 
SETA 


LOB 
SMP 


SPACE 


CE30 FETCHA 


JAZ 


STA 
SPACE 


TAB 
RQST SET 
LDA 


TCSCEX IS SCHEOULED BY VTSTCQ, THE TCM REQUEST QUEVEING**03 00318 
PROGRAM AND CCS$CRQ, THE CCM REQUEST COMPLETION PROGRAM. **03 00319 
ENTRY IS ALWAYS VIA PRIMARY ENTRY POINT, TCSCEX. **03 00320 


seeeeeeeee 
Pereeeererey 


TCSCEX 

VSCTL (X) = TCMEXEC TIDB ADDR 

TBEVNT ,X SET TBEVNT IN TIDB TO ZERO 03 003e8 
TC$TCD 03 00329 
TCS$TCO OO = TCD ADDRESS POINTER 03 00330 
x 03 00331 
0.x (X) = ADDR OF NEXT(FIRST) TCD IN THREAD 03 00332 
CE5O THREAD = 0, NO MORE TCDS IN THREAD 03 00333 
CETCD SAVE TCD ADDR FOR LATER REFERENCE 03 00334 


CHECK FOR READ ACTIVE. IF CCM READ RQST BLOCK ADOR NON- 03 00336 

ZERO, TCD IS A CANDIDATE FOR SERVICING. READ REQUESTS AREO3 00337 

CHECKED FIRST, BEFORE WRITE REQUESTS BECAUSE THEY HAVE A 03 00338 

HIGHER PRIORITY. IF TCD IS A CANDIDATE FOR SERVICING, CCMO3 00339 

REQUEST COMPLETION OR READ TIMEOUTS EVENTS WILL CAUSE 03 00340 

CONTROL TO BE TRANSFERED TO COMP. ADDR. IN RQST BLOCK. 03 00341 
0 


3 00342 

GET CCM RQST BLK ADDR 03 00343 

TCD, TCRCA, TCRCAB, TCRCAZ 03 00344 
CE30 CCM RQST BLK ADDR = 0, GO CHECK WRITE 03 00345 
CERBA READ ACTIVE, SAVE RQST ADOR. 03 00346 
3 03 00347 
TCO, TCOTO, TCOTOB, TCOTOZ 03 00348 
cE20 03 00349 
CEDELT 03 00350 
CE20B IF (A) LEQ 0, TIMEOUT OCCURRED 03 00351 
cEe08 03 00352 
TCD, TCDTO, TCOTOB, TCOTOZ 03 00353 
CHECK FOR COMPLETION EVENTS 03 00354 

CERBA 03 00355 
8 03 00356 
RSTPR+2,RQST 03 00357 
CE20A CCM RQST COMPLETE 03 00358 
CE30 NOT COMPLETE, CHECK WRITE 03 00359 
RADNR+4,RQST ROST COMPLETION ADDRESS FOR READ 03 00360 
CEPEX 03 00361 
CEPEX 03 00362 
CETCD 03 00363 
CE30 03 00364 
NEG TIMEOUT, SET TCDTO = -1. 03 00365 
TCD, TCOTO, TCOTOB, TCDTOZ 03 00366 
CERBA 03 00367 
CE20a GO TO RQST COMPLETION ADDR. 03 00368 
2 03 00369 
TCD, TCHCA, TCHCAB, TCWCAZ 03 00370 
CE10 CCM RQST BLK ADDR = 0, CHECK NEXT TCD 03 00371 
CERBA WRITE ACTIVE, SAVE RQST ADOR 03 00372 
3 03 00373 
CHECK FOR COMPLETION EVENTS 03 00374 

03 00375 

8 03 00376 
RSTPR+2,RQST 03 00377 


VTAM AL 


000411 
oo00412 
000413 
ooo4l4 
000415 
Oo0416 
000417 
000420 
ooo4e! 
ooo4ee 
o0004e3 


ooo4ey 
000425 
000426 
ooo4e7 
000430 
00043! 


000432 
000433 
000434 
000435 


000436 
000437 
000440 


000441 
000442 
000443 
o00444 
000445 
000446 


000447 
000450 


000451 
000452 
000453 
000454 
000455 
000456 
000457 
000460 
000461 


000462 
000463 


000464 
000465 
000466 
000467 
000470 


000471 
000472 
000473 


000474 
000475 


001004 
000415 
001000 
000340 
016010 
054236 
002000 
100655 
034234 
001000 
000340 


006030 
000337 
035000 
001040 
000505 
o74224 


015001 
001010 
000426 
o0s012 


015007 
001016 
000471 


oooo02 


016001 
004350 
150472 
140422 
001004 
000462 


015002 
005012 
000002 


016017 
054202 
002000 
100655 
034200 
001004 
000426 
001000 
000432 


015002 
005012 
o0000e 


016015 
054167 
002000 
100655 
034165 


015011 
001016 
000426 


015002 
005012 
000002 
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CE30A 


Rast 


cTB 


E500 


cTe 


SPACE 


LOX! 


LDX 
JIXZ 


STXx 
FETCHA 
JAZ 
TAB 


FETCHA 
JANZ 


FETCHA 
TAB 
SET 
FETCHA 


STA 
JMPM® 


LOx 
JAN 


JMP 


FETCHA 
SET 
FETCHA 
STA 


FETCHA 
JANZ 
FETCHA 
-TAB 
SET 
FETCHA 


TCSCEX ( 20) PAGE 
CE30A CCM RQST COMPLETE 
CcEIO NOT COMPLETE, CHECK NEXT TCD 
RADNR+4,RQST ROQST COMPLETION ADORESS FOR WRITE 
CEPEX 
CEPEX 
CETCD 
cE1O 


NOW SCAN TCD THREAD AND LOOK FOR REQUESTS TO START. 

A FUNC REQUEST ON TOP OF THE REQUEST QUEUE AND CCM RQST 
BLOCK ADDRESS FOR READ EQUAL ZERO MEANS THAT THE FUNC 
MUST BE PERFORMED BEFORE ANY 1/0 REQUESTS MAY BE 
INITIATED. A FUNC REQUESTS EFFECTIVELY BLOCKS THE 
INITIATION OF ANY READ OR WRITE REQUESTS UNTIL IT IS 
COMPLETED 

5 


TcsTCcD (x) = ADOR OF TCD POINTER 
0.x (x) = TCD ADDR 

CE6O NO MORE TCDS IN QUEUE 
CETCD 


CHECK FOR QUEVED REQUEST 
TCD, TCROQH, TCRQHB , TCRQHZ 


CESOA NO REQUESTS QUEUED, CHECK NEXT TCD 
(B) = RQST ADDR 


CHECK IF TCD READ ACTIVE 
TCD, TCRCA, TCRCAB, TCRCAZ 


CES0D READ BUSY, CHECK IF WRITE BUSY 


TCO NOT READ ACTIVE, TCD MAY BE A 
CANDIDATE FOR A FUNC OR READ ROST INITIATE 


8 
RQST ,ROPHO.8.4 


THO FUNC OP CODE = 05, WEOF = 02 
cesoc TOP RQST NOT A FUNC OR WEOF RQST. 


READ NOT BUSY AND TOP ROST IS A FUNC/WEOF 
IMPLIES TCD 1S NOT READ OR WRITE ACTIVE 
AND _FUNC_ROST MUST BE INITIATED. 

TCD, TCCTA, TCCTAB, TCCTAZ 


8 
CTB, TPFPA, TPFPAB, TPFPAZ 


CEPEX SAVE FUNC PROCESSOR ROUTINE ADDR 

CEPEX PROCESS FUNC RQST 

CETCD 

CESOA 

CESOB GO BACK AND CHECK IF READ CAN BE INITIATED 


NOT READ ACTIVE, NOT FUNC RQST 
TRY TO INITIATE READ RQST 

TCD, TCCTA, TCCTAB, TCCTAZ 
(B) = CTBL ADDRESS 


8 
CTB, TPRPA, TPRPAB, TPRPAZ 


CEPEX SAVE READ PROCESSOR ROUTINE ADDR 
CEPEX PROCESS READ RQST 
CETCD 


CHECK IF WRITE ACTIVE. IF NOT,TCD IS A 
CANDIDATE FOR WRITE REQUEST INITIATION 
AND CONTROL IS TRANSFERED TO WRITE 


PROCESSOR. 
TCD, TCHCA, TCHCAB, TCHCAZ 
CESOA WRITE ACTIVE, CHECK NEXT TCD 


TCD, TCCTA, TCCTAB, TCCTAZ 

(B) = CTBL ADDR 
8 
CTB, TPHPA, TPHPAB, TPHPAZ 


VTAM AL 


000476 
000477 
000500 
000501 
000502 
000503 
000504 


000505 
000506 
000507 


000510 
000511 
000512 


000513 
ooos!4 
000515 
000516 
000517 
000520 


000521 
000522 
000523 
000524 
000525 
000526 
900527 


000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000540 
000541 
o00s4e 
000543 


000544 
000545 
000546 
000547 


000550 
000551 
0005s52 
000553 
000554 
000555. 
000556 
000557 
000560 
000561 


oo0s6e 
000563 
000564 
000565 
000566 


000567 


O1l6oi6 
054155 
002000 
100655 
034153 
001000 
000426 


100444 
100747 
030300 
000001 
015003 
001010 
000521 


100244 
100147 
005001 
054142 
001000 
000333 


010460 
054134 
006030 
o004e5 
035000 
001040 
000544 
oooo01 


015014 
001010 
000525 
144123 
001004 
000540 
001000 
000525 
124116 
054115 
001000 
000525 


010343 
O54114 
010344 
054113 


024106 
005001 
006170 
000074 
O64011 
005012 
005001 
006160 
000310 
064003 


006505 
oo0000 
001102 
000000 
ooo000 


030300 
000001 


DPrDpyry> 


DP>>ryy DODO >>re 


>DE>M>>> 


D>>r Dre DV>>Dyr> 


PP >> rrr rrr 
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1722 
1723 


1724 
1725 


1726 
1727 
1728 
1729 
1730 
1731 

1732 
1733 
1734 
1735 
1736 
1737 


1738 
1739 
1740 
1741 


1742 


1743 
1744 
1745 


1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 


1757 
1758 


1759 
1760 


1761 


1762 
1763 


1764 


1765 
1766 
1767 


1768 


1769 
1770 
1771 
1772 
1773 
1774 
1775, 


1776 
1777 
1778 


1779 
1780 
1781 
1782 


1783 
1784 


1785 
1786 
1787 
1788 
1789 


Qeeesece 


E60 


TIOB 


Qeeeecee 


E70 


CE70A 


TcD 


cCE70B 


CE70C 


cEsO 


TIOB 


STA 
JMPM* 


LOx 
JMP 


EJEC 


SPACE 
DINTS 


LOX 
SET 
LOA 
JAZ 


EINTS 


TZA 
STA 
MP 


EVEC 


SET 
FETCHA 


JAZ 


STA 
LDA 


LoB 
TZA 
OlvI 


sTB 
TAB 
TZA 
MULT 


sTB 
DELAY 


LOX 
SET 


TCSCEX { 21) PAGE 


CEPEX SAVE WRITE PROCESSOR ROUTINE ADDR 
CEPEX PROCESS WRITE RQST 

CETCD 

CE50A CHECK NEXT TCD IN THREAD 


ALL TCOS ARE NOW SCANNED. CCM REQUESTS MAY 
HAVE COMPLETED SINCE ENTRY TO TCMEXEC. 

IF REQUESTS HAVE COMPLETED, TBEVNT IN 
TCMEXEC TIOB WILL BE NON-ZERO(TBEVNT WAS 
CLEARED TO ZERO ON ENTRY). INTERRUPTS ARE 


DISABLED ANO TBEVNT IS CHECKED. IF NON-ZEROO3 
CONTROL IS TRANSFERRED TO TCSCEX TO RESTARTO3 


TCD SCAN,ELSE A TYPE 2 DELAY IS PERFORMED 
THEREBY DOING AN EXIT TO VORTEX. 
5 
DISABLE INTERRUPTS 
VSCTL 
x 
TBEVNT , TIOB 
CE70 NO REQUESTS COMPLETED OR QUEUVED 
RESET DELTA TIME 
CEDELT 
TCSCEX TBEVNT NON-ZERO, GO BACK AND SCAN TCD THRO 
SCAN ALL TCDS TO FIND THE SMALLEST TIMEOUT VALUE(READ) 
(IN 1 SECOND INTERVALS) AND USE THIS VALUE FOR THE 
INTERVAL OF TYPE 2 DELAY. 
BEFORE EXECUTING TYPE 2 DELAY, RECORD THE VALUE OF THE 


CURRENT 5 MS & MINS CLOCK FOR CALCULATION OF ELAPSED 
TIME WHEN TCMEXEC REGAINS CONTROL. 


BRIS 

CESTO SET SMALLEST TIME OUT VALUE TO 32767 SECS. 

TCSTCD (Xx) = AODR OF TCD POINTER 

0.x (X) = TCD ADDR 

CE70C NO MORE TCDS 

x 

TCD, TCDTO, TCDTOB, TCDTOZ 

CE70A NOT TIMEOUT ACTIVE 

CESTO 

CE70B TCOTO .LT. CESTO 

CE70A NOT SMALLER, CHECK NEXT TCD 

CESTO RESTORE (A) 

CESTO UPDATE SHORTEST TIMEOUT VALUE 

CE70A CHECK NEXT TCD 

5 

VSTMS GET AND SAVE CURRENT TIME(S MS AND | MIN. 

TCSTMS INTERVALS). 

VSTMN 

TCSTMN 

PERFORM TYPE 2 DELAY USING VALUE IN CESTO 

cESTO 

60 

CESO+4 STORE NO. OF MINS. DELAY 
CONVERT SECS TO 5 MS INCREMENTS 

200 

CE90+3 STORE NO. OF SMS. DELAY 

0,0,2 


RETURN AFTER DELAY OR ACTIVATION BEFORE DELAY EXPIRED 
vSCTL 
x 


03 


o0444 
00445 


00446 
00447 


00448 
00449 
00450 
00451 

00452 
00453 
00454 
900455 
00456 
00457 
00458 
00459 


00460 
0046! 
00462 
00463 


O0464 


00465 
00466 
00467 


00468 
00469 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 


00479 
00480 


00481 
00482 


00483 


00484 
00485 


oo4es 


00487 
oo4es 
00489 


00490 


00491 
00492 
00493 
o04s4 
00495 
00496 
00497 


oo4ss 
00499 
00500 


00501 
00502 
00503 
oos04 


00505 
00506 


00507 
00508 
00509 
00510 
oosit 
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000570 015001 
000571 006150 
000572 137667 
000573 055001 


000574 014062 
000575 130460 
000576 001010 
000577 000650 
000600 005001 
000601 054057 
000602 010344 
000603 144057 
000604 001004 
000605 000640 
000606 001010 
000607 000621 
000610 005012 
000611 010343 
000612 144047 


000613 003004 
000614 000664 
000615 005001 
000616 006160 
000617 000074 
000620 064040 
000621 010343 
000622 144037 
000623 001004 
000624 000644 
000625 124032 
000626 005012 
0006e7 005001 
000630 006170 
000631 000310 
000632 054025 
000633 005021 
000634 124024 
000635 054023 
000636 001000 
000637 000333 
000640 006120 
000641 002641 
00064e 001000 
000643 000610 
000644 006120 
000645 027341 
000646 001000 
000647 000625 
000650 054007 
00065! 054007 
000652 001000 
000653 000333 
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000654 000000 
000655 000000 
000656 000000 
000657 000000 


000661 000000 
000662 000000 
000663 000000 
000664 005322 


A 
A 
A 
A 
000660 000000 A 
A 
A 
A 
A 


ENTRY NAMES 
000000 R TCSBRQ 
000030 R TCSFRR 
EXTERNAL NAMES 
000524 E TCSTCO 
SYMBOLS 

000044 A APIM 
oo00le A BIO 
000016 A Bi4 
000004 A BY 
000010 A B88 
000472 A BMI7 
000473 A BM37 
000476 A 8M777 
000454 A BRII 
000460 A BRI5 
000446 A BRS 
000452 A BRO 
000434 A BSI1 
000440 A BS15 
000426 A BSS 
000432 A BS9 
000376 R CE208 
000426 R CESOA 
000505 R CE60 
000544 R CE70C 
000625 R CESOC 
O00661 R CEDELT 
000656 R CETCD 
000117 R CRIO 


17390 LDA 
1791 ANAL 
1792 STA 
1793 * 

1794 © 

17395 LDA 
1796 ERA 
1797 JAZ 
17398 TZA 
17399 STA 
1800 LOA 
1801 suB 
1802 JAN 
1803 JAZ 
1804 CESOA TAB 
1805 LOA 
1806 SUB 
1807 XAN 
1808 TZA 
1809 MULT 
1810 sTB 
1811 CESOB LDA 
1812 SUB 
1813 JAN 
1814 CES9OC ADD 
1815 TAB 
1816 TZA 
1817 Olvi 
1818 STA 
1819 TBA 
1820 ADD 
1821 STA 
1822 JMP- 
1823 CES90D ADDI 
1824 UMP 
1825 CESOE ADDI 
1826 MP 
1827 CESOF STA 
1828 STA 
1829 JMP 
1830 EVEC 
1631 ¢ 

1832 CERBA DATA 
1833 CEPEX DATA 
1834 CETCD DATA 
1835 CESTO DATA 
1836 CETMS DATA 
1837 CEDELT DATA 
1838 TCSTMS DATA 
1839 TCSTMN DATA 
1840 DBRINS DATA 
1841 END 
000333 R 

000037 R 

000563 E VSEXEC 
oo000e A B 
000013 A Bil 
000017 A B15 
000005 A BS 
000011 A B9 
000475 A BM177 
000463 A BM377 
00044! A BRO 
000455 A BRI2 
000443 A BRE 
000447 A BRE 
ocovel A BSO 
000435 A BSI2 
000423 A BSe 
000427 A BSE 
000340 R CE10 
000403 R CE30 
000432 R CE50B 
000521 R CE70 
000562 R CESO 
000640 R CES0D 
000655 R CEPEX 
000660 R CETMS 
000134 R CRIS 


TBST ,TIDB 
0137667 


TBST, TIOB 


CALCULATE DELTA TIME FOR TIMEOUT ACTIVE READ REQUESTS 


CcESTO 
BRIS 
CESOF 


CEDELT 
VSTMN 
TCSTMN 
cEsOD 
cEsoB 
VSTMS 
TCSTMS 


DBRINS 


60 
CEDELT 
VSTMS 
TCSTMS 
CESOE 


CETMS 


200 
CETMS 
CEDELT 
CEDELT 
TCSCEX 
1441 
CESOA 
12001 
cesoc 
CETMS 


CEDELT 
TCSCEX 


ge0000000 


S322 


000027 E vS$Ioc 
ooo000 A BO 
000014 A Ble 
000002 A 82 
000006 A B6 
000000 A BICNUM 
000477 A BM1777 
000467 A BM7 
ooo44e A BRI 
000456 A BRIZ 
000444 A BRS 
000450 A BR7 
000422 A BSI 
000436 A 8S13 
ooo4e4 A BS3 
000430 A BS7 
000361 R CE20 
000415 R CE30A 
000462 R CESOC 
000525 R CE70A 
000610 R CESDA 
000644 R CESOE 
000654 R CERBA 
000047 A CLOCK 
000137 R CRISA 


RESET SUSPEND, INT EXP,TIME-DELAY ACTIVE 


TCSCEX 


BITS 3,6,14 


NO TIMEOUTS ACTIVE 


CLEAR DELTA TIME 
CHECK MINS CLOCK 


WRAP AROUND 
LESS 1 MIN 


IF WRAP AROUND AND LESS 1 MIN, DECR. B REG. 


CONVERT TO SECS 


CHECK 5 MS CLOCK 


ADD RUNNING 5 MS COUNTER 


CONVERT TO SECS 
SAVE RUNNING 5 MS COUNTER 


GET DELTA TIME FROM 5 MS CLOCKS 


START TCMEXEC 


ADJUST FOR WRAP AROUNDS 


ZERO 5 MS RUNNING COUNTER 


START TCMEXEC 


DATA STORAGE 


CCM RQST BLK ADDR 
TEMP USED FOR SUBROUTINE ENTRY 


TCD ADDRESS 


SHORTEST TIMEOUT VALUE 

RUNNING 5 MS(FRACTION OF A SEC) COUNTER 
DELTA TIME IN SECOND INTERVALS 

5 MS COUNTER WHEN TCSCEX EXITS 

MINS COUNTER ON EXIT 

INSTRUCTION 


DECR. B REG. 


000001 
000015 
000003 
000007 
00421 
000464 
000474 
000453 
000457 
000445 
000451 
000433 
000437 
000425 
000431 
000367 
ooo4ey 
000471 
000540 
000621 
000650 
000657 
000000 
000167 
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TCSCEX 000110 R TCSCRQ 000104 R TCSFRQ 
TCSFWR 


VTAM AI 


000216 
000254 
000320 
000332 
ooocal 
000002 
000003 
000000 
0000e0 
oooo14 
000000 
o000eo 
000005 
oo0000 
000010 
000013 
000001 
000745 
000020 
000021 
000000 
000020 
000020 
000000 
o000e0 
000002 
oo0002 
oo04e4 
000465 
000077 
000027 
000003 
oo001e 
000003 
000006 
000013 
000001 

000006 
000017 
000001 

000000 
000000 


000010 
000003 
000006 
000017 
000017 
000004 
000000 
00001 
000462 
000017 
000013 
000010 
000017 
oo00c0 
000001 
000016 
000000 
000002 
000014 
000000 
000020 
000016 
000000 
000020 
000011 
000017 
ooo0e0 
000007 
000013 
000020 
000017 
000000 
000010 
000245 
000470 
000001 
000002 
oo0014 
000010 
000001 
000010 
ooocoy 


000040 
000040 
000200 
000000 
000000 
ooo001 
ooo012 
ooo0o! 
000002 
000002 
000000 
000002 
000002 
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CRISA 
cReoc 
cR60 
CRSTAT 
CTACTZ 
CIB 
CTOST 
CTOVAB 
CTFCBZ 
CTFRE 
CTIOBB 
CTIOAZ 
CTRCN 
cTROBB 
CTRTRZ 
CTWOS 
OCBUFF 
OISMP 
OMCHAZ 
OMLCA 
DMLTAB 
OMPTAZ 
DMSTA 
OMSHAB 
DMTPAZ 
DSLCKO 
DSPSTI 
EIGHT 
FIVE 
FRIO 
10CA 
LCABN 
LCASYB 
LCCRCZ 
LCCWC 
LCCWDB 
LCCWIZ 
LCCHR 
LCCWSB 
LCCWTZ 
LCIBF 
LCIBLB 


LCICIZ 
LCIKE 
LCLCB 
LCLTBB 
LCOBAZ 
LCOBL 
LCOKEB 
LCRCCZ 
LHW 
LSASC 
LSASYB 
LSCCIZ 
LSCRC 
LSCTAB 
LSDSFZ 
LSEPF 
LSLSPB 
LSMODZ 
LSPAR 
LSPLAB 
LSRCAZ 
LSRRS 
LSRRTB 
LSRTOZ 
LSSWS 
LSTERB 
LSTHOZ 
LSWEM 
LSWRSB 
LSWTOZ 
USYNC 
LSYNRB 
LSYNTZ 
MPMR2 
NINE 
PCBSLZ 
PCCTP 
PCECHB 
PCLLNZ 
PCPCH 
PCSHLB 
PCTYPZ 


PIM 
PIMS 
POST 
PSASY 
PSBEG 
Pscce 
PSCRCB 
PSDEFZ 
PSDWN 
PSEPF 
PSLSPB 
PSMODZ 
PSPARZ 


000ee1 

000226 
000325 
000330 
000001 
000011 
000000 
000020 
000014 
000000 
000017 
900002 
000000 
000020 
000010 
ooc000 
oo0002 
Ooo444 
000017 
000000 
000020 
000016 
000000 
000020 
000002 
000001 

ooo002 
000147 
o004e3 
000102 
000026 
000013 
000001 

000006 
000015 
00000! 

000006 
000011 

ooo0o1 

000001 

000017 
ooo014 


oo0002 
000000 
000000 
000001 
000004 
000000 
000004 
000000 
000017 
000011 
000001 
000015 
000012 
000020 
000013 
000016 
ooool! 
000020 
000014 
000010 
000003 
000010 
000020 
000005 
000000 
000001 
000006 
000000 
000003 
000014 
000016 
000010 
000045 
000345 
ooo4et 
000000 
oooo14 
000001 
000002 
000000 
000001 
000001 


000041 
000040 
000003 
000013 
ooooo! 
000000 
000003 
000003 
oooo1! 
000016 
00001! 
000003 
oco000e 


PPE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EES PEPE EEE EEE EVUS Shorr hoo e re yr rrr err rrr rr vvuvny 


PPO r rrr rrr rere 


cR20 
CReOx 
CREOA 
CRTCD 
CTADN 
CTBIC 
cToSTB 
CIDVAZ 
CTFRC 
CTFREB 
CTIDBZ 
CTOPM 
CTRCNB 
CTROBZ 
CTSTA 
CTWOSB 
OCCNT 
DISPIM 
DMFPA 
DMLCAB 
OMLTAZ 
DMRPA 
OMSTAB 
OMSWAZ 
OSCTAD 
OSNAME 
OSREWD 
ENACLK 
FOUR 
FROPCD 
JMPHD 
LCABNB 
LCASYZ 
LCCWB 
LCCWCB 
LCCHOZ 
LCCWP 
LCCWRB 
LCCHSZ 
LCIBA 
LCIBFB 
LCIBLZ 


Lcice 
LCIKEB 
LCLCeB 
LCLT8Z 
LCoBr 
LCOBLB 
LCOKEZ 
LCSMB 
LSABN 
LSASCB 
LSASYZ 
uscce 
LSCRCB 
LSCTAZ 
LSOST 
LSEPFB 
LSLSPZ 
LSNTO 
LSPARB 
LSPLAZ 
LSREM 
LSRRSB 
LSRRTZ 
LSSRS 
LSSWSB 
LSTERZ 


900244 
000260 
000331 
000000 
oo0000 
000000 
000020 
000012 
000010 
000010 
000007 
000000 
000010 
000005 
000000 
000020 
000000 
000024 
000000 
000020 
000023 
000000 
0000e0 
000015 
ooo000 
000000 
000000 
000645 
ooo044 
000103 
000025 
000001 

000003 
000014 
000001 

000006 
oo001e 
000001 

000006 
000000 
000001 

000002 


000000 
ooo004 
000020 
000005 
000017 
000014 
000003 
000016 
000015 
000001 

000015 
000000 
000003 
000017 
000000 
000001 

000014 
000010 
000002 
000002 
000000 
000003 
000004 
000000 
000020 
000000 
000000 
000020 
000010 
000011 

000001 

000017 
000045 
000420 
000001 

000000 
000004 
000000 
000000 
000010 
oo0002 
000012 


oo00042 
000040 
000015 
000001 
000010 
000010 
o0000e 
000017 
000001 
000001 
000000 
000000 
900000 
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PSPLAB 


000250 
000261 
000327 
000017 
oco0e0 
000020 


Z 000006 


000000 
000010 
000000 
000000 
000020 
oo0004 
000010 
000020 
000664 
000747 
000000 
000020 
000022 
000000 
000020 
0000e5 
000000 
000000 
000002 
000002 
000244 
000050 
000100 
000300 
000003 
000014 
000001 
000006 
000016 
000001 
000006 
000010 
000017 
000000 
000010 


000010 
000050 
000007 
000000 
000001 
000007 
000017 
000001 
000001 
000014 
000010 
000010 
oo001e 
000017 
000020 
000014 
000016 
000006 
000016 
ooo000 
000020 
000001 
000000 
000020 
000016 
000000 
000020 
000016 
000000 
000002 
oo00e20 
000000 
000145 
000461 
000011 
000010 
00000! 
000010 
000004 
000001 
000010 
000002 


000043 
000040 
000001 
cooo0e 
000010 
000003 
000010 
000001 
000004 
000000 
000016 
000014 
000010 
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TCSCEX 


CRe0B 
CR50 
crast 
CTACTB 
CTADNZ 
CTBICZ 
CTDVA 
CTFCBB 
CTFRCZ 
cTIoB 
CTIOAB 
CTOPMZ 
cTROB 
CTRTRB 
CTSTAZ 
OBRINS 
DISCLK 
OMCHAB 
OMFPAZ 
OMLTA 
DMPTAB 
OMRPAZ 
OMSHA 
OMTPAB 


Lcicis 
LeIcez 


e3) 


PAGE 
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VTAM Al 


ooo001 
000000 
000016 
000010 
oo0040 
000020 
oo000e 
000467 
ooool) 
000015 
o000ee 
oooco4 
000010 
ooool1e 
000016 
oooco4 
000010 
000013 
000333 
000037 
000004 
000000 
00000! 
000005 
000012 
000000 
oooool 
000016 
000014 


000010 
000005 
000000 
000001 
000007 
000000 
000020 
000010 
000010 
000020 
000004 
000000 
000003 
000004 
000464 
000007 
000000 
000017 
000007 
cooo0e 
000000 
000020 
000015 
000000 
000415 
ooo4t4 
000310 
000354 
000351 
000563 
000320 
000055 
000054 
000307 
000400 
000362 
000363 
000352 
000416 
000304 


PPPS EEE OE MPS >> PSO OEE E> EEE SEE EEE ODE EEE EES PPP P PEE ESODVDUP ES Sr ro rrr er oreyyoy 


PSPROT 
PSXMM 
PSYNCB 
PSYNRZ 
RAO 
RBI 
ROQBLK 
SEVEN 
TBENTY 
TBISB 
TBKNI 
TBRSA 
TBRSTS 
TBS1O 
TBS14 
TBSY 
TBS8 
TBTMIN 
TCSCEX 
TCSFWR 
TCBSL 
TCCLNB 
TCCONZ 
TCCTP 
TCDCC 
TCDTOB 
TCECHZ 
Tc1b2 
TCLOFB 


TCLLNZ 
TCNTD 
TCPCHB 
TCRBCZ 
TCRCA 
TCRMDB 
TCRQHZ 
TCSTO 
TCSHLB 
TCTCOZ 
TCWBC 
TCWCAB 
TCWMDZ 
TCXMM 
THREE 
TIOSPZ 
TINET 
TIODNB 
TIODPZ 
TISEC 
TITUIB 
TITUeZ 
TPRPA 
TPWPAB 
VSBFC 
VSBVN 
VSCKPT 
VSCRM 
VSCTMS 
VSEXEC 
VSIM 
VSICFG 
VSLCNT 
VSLRSK 
V$LUTL 
VSNCTR 
VSPIMN 
VSSCV 
VSTFC 
V$UTB 


go000e 
ooooll 
000001 
000003 
000000 
o0000e 
o0000e 
000466 
000003 
000017 
000023 
000005 
000006 
000013 
000017 
000005 
000011 
000012 
000110 
000524 
ooooll 
000010 
o0000e 
000014 
000000 
000020 
000015 
000000 
oooool 


000005 
000000 
000010 
000013 
000000 
000003 
000006 
000000 
000001 

000005 
000016 
000020 
000006 
oooote 
000001 

oo0002 
000000 
000001 

000003 
000007 
000020 
000017 
000000 
000020 
000075 
000334 
000301 

000302 
000070 
000347 
000410 
000077 
000313 
000312 
000401 

000413 
000074 
000375 
000314 
000001 
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PSTER 
PSXMMB 
PSYNCZ 
PSYNT 
RAL 
RFCB 
Rast 
SIX 
TBEVNT 
TeBISP 
TBKNe 
TBRSB 
TBRSX 
TBS11 
TBS15 
Tess 
TBS 
TBTMS 
TCSCRQ 
TCSTCD 
TCBSLB 
TCCLNZ 
TCCTA 
TCCTPB 
TCOCCB 
TCDTOZ 
TCIOL 
TC102B 
TCLDFZ 


TCNOD 
TCNTOB 
TCPCHZ 
TCRBF 
TCRCAB 
TCRMDZ 
TCRRS 
TCSTOB 
TCSWLZ 
TCTYP 
TCWBCB 
TCWCAZ 
TCWRS 
TCXMMB 
TIDB 
TIDWN 
TINETB 
TIODNZ 
TIOSC 
TISECB 
TITUIZ 
TPFPA 
TPRPAB 
TPWPAZ 
YSBGLB 
VSCAM 
VSCPL 
VSCRS 
VSDATE 
VSFGLB 
VSIOA 
VSJCTM 
VSLER 
VSLSAL 
V$LUT2 
vsoce 
VS$PLCT 
VSSLFG 
V$TUCP 
x 


0 ERRORS ASSEMBLY COMPLETE 


000017 
000002 
ooo004 
000900 
000004 
000463 
000000 
o000e7 
o000e1 
000020 
oo00e4 
000030 
ooo000 
000014 
ooco0e 
oo0006 
000001 
000000 
000104 
000663 
000001 
000004 
000000 
000004 
900020 
000004 
000000 
000020 
000003 


000004 
000004 
000004 
000000 
000020 
000001 
000006 
000020 
000000 
000010 
000001 
000006 
000011 
000002 
000002 
000017 
000020 
000003 
000007 
000010 
000001 
000000 
000020 
000422 
000056 
000353 
000076 
000360 
000355 
000306 
000027 
000050 
000356 
000345 
000402 
000346 
000305 
000303 
000344 
oo04e0 
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PSTERB 
PSXMMZ 
PSYNR 
PSYNTB 
RADNR 
RHW 
RSTPR 
TBATSK 
TBIO 
TBISRS 
TBKN3 
TBRSE 
TBSO 
Tesi2 
Tese 
TBS6 
TBST 
TBTRD 
TCSFRQ 
TCSTMN 
TCBSLZ 
TCCON 
TCCTAB 
TCCTPZ 
TCOCCZ 
TCECH 
TCIDIB 
TC102Z 
TCLLN 


TCNODB 
TCNTOZ 
TCRBC 
TCRBFB 
TCRCAZ 
TCRQH 
TCRRSB 
TCSTOZ 
TCcTcD 
TCTYPB 
TCWBCZ 
TCWMD 
TCWRSB 
TCXMMZ 
TIOSP 
TIOWNB 
TINETZ 
TIODP 
TIOSCB 
TISECZ 
TITU2 
TPFPAB 
TPRPAZ 
THO 
VSBICI 
V$CKB 
VSCROM 
VSCTAD 
V$OSTB 
VSFLRS 
V$IOC 
VSJNAM 
VSLIT 
VSLUNT 
VSLUT3 
VSOPCF 
VSPTVB 
V$TB 
VSTMN 
ZERO 


000001 
000003 
000000 
000010 
000060 
000001 
000003 
000026 
ooool4 
000016 
000002 
000007 
ooo00! 
000015 
000003 
000007 
000025 
000000 
000030 
000662 
000003 
000015 
o000e0 
ooo001 
000014 
000014 
000020 
000006 
000010 


000004 
000004 
000017 
000020 
000006 
000000 
000003 
000004 
000000 
000004 
00001! 
000003 
000003 
000471 
000000 
000001 
000003 
000000 
000010 
000000 
000000 
o000e0 
000016 
000403 
000315 
ooo4l! 
000341 
000300 
000376 
000350 
ooo4le 
000377 
000317 
000316 
000330 
000311 
000361 
000342 
000343 
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TCSCEX 


PSTERZ 
PSYNC 
PSYNRB 
PSYNTZ 
RBO 
ROPWD 
RTIOB 
TBCPTH 
TBISA 
TBISX 
TBPL 
TBRSP 
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000000 
000001 
000002 
000003 
000004 


000005 
000006 
000007 
000010 
000011 
00012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 
000023 
oo00e4 
o000es 
000026 


000027 
000030 
000031 
000032 
000033 


000000 
054030 
064030 
006027 
001471 
900002 
006010 
000030 
056010 
016003 
150463 
006110 
100400 
056003 
014014 
056011 
005021 
006120 
oo0014 
110440 
056012 
014006 
056014 
001000 


101471 
001000 
100000 
ooo000 
000000 
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1 EEC 03 00001 

2 * THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO3 00002 
za 03 00003 
a8 V.0.M. PART NO. 92L 1105-0084 03 00004 
os 03 00005 
6¢ RELEASED 03-26-73 03 00006 
ze 03 00007 
es 03 00008 
ge TYREAD 03 00009 

10: ¢ 03 00010 
we 03 00011 
12 TITLE TYREAD 03 o001e 
13 NLIS 00013 
1e89 LIST + 
1e90 * 03 00014 
1291 GETMEM MAC 03 00015 
lege LOAI P(e) 03 00016 
1293 LOBI Pcl) 03 00017 
1294 STX +6 03 00018 
1e95 JSR VSEXEC,1 03 00019 
1296 DATA 0600 03 00020 
1297 DATA VTSGTM 03 00021 
1298 LOX! e 03 o00ee 
1299 EMAC 03 00023 
1300 PUTMEM MAC 03 00024 
1301 LOAL Pcl) 03 00025 
1302 LOBE P(2) eeenesee 
1303 STX +6 03 00027 
1304 JSR VSEXEC,1 03 00028 
1305 DATA 0600 03 00029 
1306 DATA VTISPTM 03 00030 
1307 LOX! * 03 00031 
1308 EMAC 03 00032 
00033 

eee: 00035 

eeeeeees 00036 

1312 ¢¢ PROGRAM NAME ~ 00037 
1313 8 TYRDCC - OUTPUT TTY CONTROL CHARACTER(S) SUBROUTINE **03 00038 
1314 ¢@ 00039 
13159° ENTRY CONDITIONS - 00040 
1316 ** (X%) = TCD ADDRESS 00041 
ESET Ss (B) = CHARACTERS TO OUTPUT 00042 
1318 ** (A) = BUFFER LENGTH(BYTES) 00043 
1319 ¢9 00044 
EXIT CONDITIONS - 0004S 

(X) DESTROYED O0046 

(B) DESTROYED 00047 

(A) DESTROYED 00048 

00049 

* 00050 

00051 

00052 

1328 STA SAVA 00053 
1329 sTB SAVB . 00054 
1330 LOBE ROMEM GET CCM RQST BLK ADDR 00055 
1331 ROBLK SET 8 03 00056 
1332 LOAI cect RETURN ADDR 03 00057 
1333 STA 8,ROQBLK 03 00058 
1334 LDA 3,RQBLK SET OP-CODE TO WRITE 03 00059 
1335 ANA RHW 03 00060 
1336 ORAL 0100400 03 00061 
1337 STA 3,ROBLK 03 00062 
1338 LDA SAVA SET BUFFER LENGTH 03 00063 
1339 STA 9,ROQBLK 03 00064 
1340 TBA SET BUFFER ADDR, BYTE COUNT FLAG 03 00065 
1341 ADDI 12 03 00066 
1342 ORA Bs15 03 00067 
1343 STA 10,ROQBLK 03 00068 
1344 LOA SAVB MOVE CHRS TO BUFFER 03 00069 
1345, STA 12,RQBLK 03 00070 
1346 IMP * ROMEM QUEUE CCM REQUEST 03 00071 
1347 CCI UMP ® TYROCC RETURN 03 00072 
1348 SAVA DATA 0 SAVE A REG. 03 00073 
1349 SAVB DATA 0 SAVE B REG. 03 00074 
00075 

00077 

00078 

1353 « PROGRAM NAME - 00079 
1354 #¢ TYSTCB - STORE CHARACTER IN BUFFER SUBROUTINE 00080 
1355 ¢¢ ENTRY CONDITIONS - 00081 
1356 ** () = TCD ADDRESS oo082 
1357 © (B) = BUFFER ADDRESS 00083 
1358 ** (A) = CHAR IN BITS 7-0 ooos4 
1359 #* EXIT CONDITIONS - oooss 
1360 *¢ (X) UNCHANGED 00086 
1361 ** (B) = UPDATEO BUFFER ADDRESS 00087 
1362 ¢* (A) DESTROYED oooss 


1363 ** CALLING SEQUENCE - **03 00089 


VTAM AL 


000034 
000035 
000036 
000037 
oo0040 
000041 

go004e 
000043 
oo0044 
o00045 
000046 
000047 
000050 
000051 

ooo00se 
000053 
000054 
000055 


* 900056 


000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000100 
000101 


000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
o0011e 
000113 
000114 
000115 
000116 
000117 


000120 


oo0000 
006437 
ooo044 
004250 
056000 
005ee2 
001000 
000054 
005222 
054003 
016000 
150462 
006110 
000050 
056000 
oo0sie2 
001000 
100034 


000000 
000001 
054040 
005021 
001002 
000077 
005211 
005012 
016000 
150462 
006117 
001504 
056000 
014025 
005311 
o0sie2 
001000 
000100 
014020 
004341 
074016 


005024 
005012 
006017 
001505 
001020 
000115 
055000 
005144 
005322 
001000 
000106 
034002 
001000 
100056 


ooco00 


DPPH D> Shorr Dy y>r Dyer 


> DHKH DH KH Hr DHE DH yyH HHH VHS Hy yr VhS hy ye Dy >>> 
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i364 «6 JMPM TYSTCB 
(S65 &* (RETURN) 
1366 ** 


1367 *#808 eee 
1368 t#eee a eee 

1369 TYSTCB ENTR 

1370 8T RB1+15,ST1 TEST SIGN BIT OF B REG. 03 00096 
1371 LRLA 8 POSITION CHAR TO LHW 03 00097 
1372 STA 0.8 STORE CHAR 03 00098 
1373 cPB COMPLEMENT BUFFER ADDR FOR RHW 03 00099 
1374 JMP ste 03 00100 
1375 STI CPB RHW CHAR 03 00101 
1376 STA +4 03 00102 
1377 LDA 0.8 GET PRIOR CHAR IN LHW 03 00103 
1378 ANA LHW 03 00104 
1379 ORAI « 03 00105 
1380 STA 0,8 STORE CHAR 03 00106 
1381 1BR INCREMENT TO NEXT BUFFER LOCATION 03 00107 
1382 sT2 JMP® TYSTCB B = NEXT BUFFER LOCATION 03 00108 
1383 

1384 

1385 

1386 PROGRAM NAME - 

1387 TYBKEF ~- BLANK UNUSED PORTION OF USERS BUFFER 

1388 

1389 ENTRY CONDITIONS - 

1390 0) = TCO ADDRESS 

1391 (B) = ADDRESS OF LAST CHAR INPUT PLUS ONE 

1392 (A) = NO OF BLANK CHARS TO MOVE 

1393 

1394 EXIT CONDITIONS ~ 

1395 (00) = UNCHANGED 

1396 (B) = DESTROYED 

1397 (A) = DESTROYED 

1398 

1399 CALLING 


1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 


1408 BKBFI START AT LHW 

1409 CPA BLANK RHW 

1410 TAB 

Mit LOA 0.8 

1412 ANA LHW 

1413 ORAE TYBLK 

1414 STA 0.8 

1415 LDA SAVR 

1416 DAR 

1417 1BR 

1418 MP BKBF I+! 

1419 BKBFI LOA SAVR 

1420 LSRA 1 CONVERT TO NO. OF WORDS 
1421 STx SAVR 

1422 TBX (X) = BUFFER POINTER 
1423 TAB (B) = COUNT 

1424 LOAE TYBKBK 

1425 BKBF2 JBZ BKBF3 

1426 STA 0.x 

1427 IxR INCREMENT BUFFER POINTER 
1428 OBR DECREMENT COUNT 

1429 JMP BKBF2 

1430 BKBF3 LDX SAVR (3) = TCO ADDRESS 
1431 JMPe TYBKBF 

1432 * DATA STORAGE 

1433 SAVR DATA i) SAVE REGISTER CELL 


1434 


PROGRAM NAME - 
1438 ¢* TYREAD - PROCESSES READ REQUESTS FOR TTY TCM 


1439 #° 
1440 #@ ENTRY CONDITIONS - 

1441 #* (X) = ADDRESS OF TCD 
1442 #© 

1443 #8 EXIT CONDITIONS - 

1444 ee (0) DESTROYED 

1445 #6 (A) AND (B) DESTROYED 
1446 ## 

1447 #0 CALLING SEQUENCE - 

1448 #* JMPM TYREAD 


VTAM AL TYREAD { 27) PAGE 3 


1449 #© (RETURN) **03 00177 
00178 
00179 
00180 
v' 00181 
VISMPL 00182 
1455 EXT VISGTM 03 00183 
1456 EXT VTSPTM 03 00184 
1457 EXT TC$FRR 03 00185 
1458 ExT TC$BRQ BUILD CCM RQST 03 00186 
1459 NAME TYREAD 03 00187 
000121 000000 A 1460 TYREAD ENTR 03 00188 
000001 A 1461 TCD SET x 03 00189 
000122 006077 A 1462 STXE  ROTCOD 03 00190 
000123 001467 R 
000124 002000 A 1463 JMPM = TCSFRR FIND READ REQUEST 03 00191 
000125 000000 E 
000126 001010 A 1464 vAZ* —-TYREAD NONE, EXIT 03 00192 
000127 100121 R 
000130 006057 A 1465 STAE —- RORQST 03 00193 
000131 001470 R 
000132 005001 A 1466 TZA 03 00194 
000133 006057 A 1467 STAE  ROMEM 03 00195 
000134 001471 R 
1468 FETCHA TCD, TCSWL,TCSWLB, TCSHLZ 03 00196 
000135 015004 A 
000136 004350 A 
000137 150421 A 
000140 001010 A 1469 AZ RD20 DIRECT CONNECT 03 00197 
000141 000277 R 
1470 * DIAL-UP, CHECK PHYSICAL CONNECTION 03 00198 
1471 FETCHA TCD, TCCON, TCCONB, TCCONZ 03 00199 
000142 015004 A 
000143 004355 A 
000144 150421 A 
000145 001010 A 1472 JAZ R009 NOT CONNECTED 03 00200 
000146 000167 R 
1473 FETCHA TCD, TCLOF ,TCLOFB, TCLOFZ 03 00201 
000147 015006 A 
000150 004354 A 
00015! 150421 A 
000152 001010 A 1474 vAZ RD20 CONNECTED 03 00202 
000153 000277 R 
000154 005101 A 1475 INCR 01 LINE DISC., SIMULATE DSR OFF, COMP. ROST 
000155 006027 A 1476 LOBE = RDRAST 03 00204 
000156 001470 R 
1477 OINTS 03 00205 
000157 100444 A 
000160 100747 A 
000161 002000 A 1478 vMPM = TCSCRQ 03 00206 
000162 000000 E 
1479 EINTS 03 00207 
000163 100244 A 
000164 100147 A 
000165 001000 A 1480 vMP*® ——-TYREAD 03 00208 
000166 100121 R 
1481 ROOS GETMEM VTSMPI,13 03 00209 
000167 006010 A 
000170 000015 A 
000171 006020 A 
000172 000000 E 
000173 074005 A 
000174 006505 A 
000175 000000 E 
000176 000600 A 
000177 000000 E 
000200 006030 A 
000201 000200 R 
000202 001010 A 1482 vAZ* —- TYREAD NO MEM, EXIT 03 00210 
000203 100121 R 
000204 006057 A 1483 STAE — ROMEM 03 00211 
000205 001471 R 
000206 005012 A 1484 TAB 03 00212 
000207 002000 A 1485 JMPM = TCSBRQ. 03 00213 
000210 000000 E 
000211 006010 A 1486 LOAI = ROIO SET UP RETURN ADDR 03 00214 
000212 000223 R 
000002 A 1487 ROBLK SET 8 03 00215 
000213 056010 A 1488 STA 8,RQBLK 03 00216 
000214 010465 A 1489 LOA FIVE SET OP-CODE TO FUNCTION, FUNC CODE = 0 03 00217 
000215 004250 A 1490 CRLA 8 03 00218 
000216 116003 A 1491 ORA 3,RQBLK 03 00219 
000217 150460 A 1492 ANA BRIS: USE WAIT OPTION 03 00220 
000220 056003 A 1493 STA 3,RQBLK 03 00221 
000221 001000 A 1494 vMP* —- ROMEM 03 o0e22 
o0d222 101471 R 
000223 006027 A 1495 RDIO LOBE = RDMEM 03 00223 
000224 001471 R 
000225 006037 A 1496 LOXE = ROTCD 03 00224 
000226 001467 R 
000227 016006 A 1497 LOA 6 ,ROBLK GET DETAIL STATUS 03 00225 
000230 150422 A 1498 ANA BSI CHECK FOR DATA-SET-READY 03 00226 
000231 001016 A 1499 VANZ —-RDISA ON 03 00227 
000232 000267 R 
1500 * OFF, SENSE DATA-SET-READY ON EVENT 03 00228 
000233 016003 A 150! LOA 3,RQBLK IMMEDIATE RETURN 03 00229 
000234 110440 A 1502 ORA Bs15 03 00230 
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000235 056003 A 1503 STA 3,RQBLK 03 00231 
000236 016013 A 1504 LDA 11,ROBLK FUNC CODE = 3 03 00232 
000237 150463 A 1505 ANA RHW 03 00233 
000240 006110 A 1506 ORAT 01400 03 00234 
000241 001400 A 
000242 056013 A 1507 STA 11,ROQBLK 03 00235 
000243 010422 A 1508 LOA BSI MASK FOR OSR ON 03 00236 
000244 056014 A 1509 STA 12,RQBLK STORE IN LCB EXT WORD 03 00237 
000245 006010 A 1510 LDAI RDIOA SET UP RETURN ADOR 03 00238 
000246 000253 R 
000247 O56010 A 1511 STA 8,ROBLK 03 00239 
000250 065007 A 15le sTB TCRCA,TCD SET READ ACTIVE 03 00240 
000251 001000 A 1513 JMP® ROMEM 03 00241 
oo0es2 101471 R 
1514 # CCM RQST QUEVED 03 O0242 
000253 006027 A 1515 RDIOA LOBE ROMEM 03 00243 
000254 001471 R 
000255 006010 A 1516 LOAL ROIS 03 00244 
000256 000262 R 
000257 056010 A 1517 STA 8,ROQBLK 03 00245 
000260 001000 A 1518 UMP ® TYREAD RETURN 03 00246 
000261 100121 R 
1519 * ON RETURN, DSR IS ON 03 00247 
000262 015007 A 1520 ROIS LDA TCRCA, TCD 03 o0e48 
000263 006057 A 1521 STAE ROMEM 03 00249 
000264 001471 R 
000265 005001 A 1522 TZA 03 00250 
000266 055007 A 1523 STA [GRCAS TcD 03 00251 
000267 005101 A 1524 RDISA INCR SET PHYSICAL CONNECTION BIT, OSR ON 03 00252 
1525 SETA Teo, TCCON, TCCONB, TCCONZ 03 00253 
000270 004255 A 
000271 135004 A 
000272 004355 A 
000273 150421 A 
000274 004255 A 
000275 135004 A 
000276 055004 A 
1526 * 03 00254 
1527 ¢ IF FULL-DUPLEX, CHECK IF READ CAN BE 03 00255 
1528 ¢ INITIATED 03 00256 
15e9 ¢ 03 00257 
1530 SPACE 2 03 00e58 
1531 ¢ GET TRANSMISSION MODE 03 00259 
1532 R020 = FETCHA TCD, TCXMM, TCXMMB, TCXMMZ 03 00260 
000277 015004 A 
000300 004352 A 
000301 150464 A 
000302 140464 A 1533 SUB THREE 03 00261 
000303 001016 A 1534 JANZ RD30 NOT FULL-DUPLEX 03 00262 
000304 000317 R 
1535 * FOX,CHECK FOR WRITE ACTIVE AND ECHO MODE 03 00263 
1536 FETCHA TCD, TCWCA,TCWCAB, TCHCAZ 03 00264 
000305 015011 A 
000306 001010 A 1537 JAZ RO30A NOT WRITE ACTIVE 03 00265 
000307 000326 R 
1538 © WRITE ACTIVE, CHECK IF READ WITH ECHO 03 00266 
1539 FETCHA TCD, TCECH, TCECHB, TCECHZ 03 00267 
000310 015004 A 
000311 004354 A 
000312 150421 A 
000313 001010 A 1540 JAZ RO4OB ECHO, CANNOT INITIATE READ, EXIT 03 00268 
000314 000443 R 
1541 * OTHERWISE INITIATE READ 03 00269 
000315 001000 A 1542 JMP RD3OA 03 00270 
000316 000326 R 
1543 SPACE 2 03 00271 
1544 « LINE IS HALF-DUPLEX OR SIMPLEX. 03 00272 
1545 ¢ READ CAN BE INITIATED IF RQST IS ON TOP 03 00273 
1546 * OF TCD RQST QUEUE. 03 00274 
1547 « 03 00275 
1548 RD30  FETCHA TCD,TCRQH, TCROHB, TCROHZ 03 00276 
000317 015001 A 
000320 005012 A 1549 TAB 03 00277 
000002 A 1550 RQST SET 8 03 00278 
1551 FETCHA RQST,ROPWD,6,4 GET OP-CODE OF TOP RQST 03 00279 
000321 016001 A 
000322 004350 A 
000323 150472 A 
000324 001016 A 1552 JANZ ROWOB READ ROST NOT ON TOP, EXIT 03 00280 
000325 000443 R 
1553 * 03 00281 
1554 ¢ INITIATE READ REQUEST 03 00282 
1585 * 03 00283 
000326 006027 A 1556 RD30A LOBE RORGST 03 00284 
000327 001470 R 
000002 A 1557 RQST SET 8 03 00285 
1558 FETCHA RQST,ROPWO,12,3 03 00286 
000330 016001 A 
000331 004354 A 
000332 150467 A 3 
000333 140423 A 1559 suB FOUR IS MODE = 4 03 00287 
000334 001010 A 1560 JAZ RD30B YES 03 00268 
000335 000340 R 


VTAM AL 


000336 


000337 
000340 
000341 
000342 


000343 
000344 
000345 
000346 
000347 
000350 
000351 


000352 
000353 
000354 
000355 
000356 
000357 
000360 
000361 
000362 
000363 


000364 
000365 
000366 
000367 


000370 
000371 
000372 
000373 
000374 
000375 
000376 


000377 
000400 
000401 
00040e 
000403 
oo0404 
000405 
000406 
000407 
000410 
ooo4tt 
000412 
000413 


000414 
000415 
000416 
000417 
000420 
ooo4el 
000422 
000423 
oo004e4 
oo04e5 
000426 
000427 
000430 
000431 
000432 
000433 


000434 
000435 


000436 
000437 
000440 
ooo44t 
o0044e 
000443 
OOO444 
00445 


oo00446 
000447 
000450 
oo04st 


000452 
000453 
000454 
000455 
000456 
000457 


005001 


001004 
120464 
006057 
001472 


135006 
150467 
135006 
055006 
0u6027 
001470 
026002 
o00002 
016000 
006057 
001473 
016001 
006057 
001474 
006017 
001472 
001010 
000467 


006017 
OO1471 
001016 
000412 


006010 
000015 
006020 
000172 
074005 
006505 
000175 


000600 
000177 
006030 
000401 
001010 
100121 
006057 
001471 
005012 
002000 
000210 
006027 
001471 
000002 
006010 
000434 
056010 
016003 
150463 
110440 
056003 
006017 
001473 
o56011 
006017 
001474 
056012 
065007 
001000 
101471 


006027 
001471 
ooo002e 
006010 
001351 
056010 
001000 
1oo1el 
006027 
OO14T71 
001020 


1oo1et 
006010 
000015 
056000 


006010 
000373 
006027 
OO1N71 
074005 
006505 


> 


DPDVDH DHS VSS rr Dy rrr r Dror 


SPDHMh Se HD SDE DEH DEKH DE DESKS VSE HVE hry yor yr VS >VSMPhh> VS DHS DSM> M>>myyy DPD 


1561 
1562 
1563 
1564 


1565 


1566 
1567 
1568 
1569 
1570 


1571 
1572 


1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 


1582 


ROD308 


ocB 


RDYO 
ROQBLK 


ROYOA 


RO4OB 


TZA 
DATA 
ADD 
STAE 


SETA 


LOBE 
LOB 
SET 
LDA 
STAE 


LDA 
STAE 


LDAE 
JAZ 


SPACE 


LOAE 
JANZ 
GETMEM 


JBz* 


LDAL 


STA 
PUTMEM 


01004 
THREE 
ROMODE 


TYREAD ( 29) PAGE 
NO, SET MODE = 1 (DEFAULT) 


SAVE MODE OF RQST 


TCD, TCRMD , TCRMDB, TCRMOZ 


RORQST 
RFCB,RQST 
8 


DCRECL ,OCB 
ROBLEN 


OCBUFF ,DCB 
ROBUFF 


ROMODE 
ROSO 


ROMEM 
ROO 
VTSMPI,13 


TYREAD 
ROMEM 


10,RQBLK 
TCRCA, TCD 
ROMEM 


RDMEM 


J 
ROYOO 


8,ROBLK 
TYREAD 


ROMEM 
TYREAD 


13 


0.8 
VTSMP1,ROMEM 


SAVE RECORD LENGTH (BYTES/WORDS) 


SAVE BUFFER ADDRESS, BYTE/WORD CNT FLAG 


GET MODE 
MODE = 1, STANDARD 


MODE = 4, TRANSPARENT 


03 00303 
0. 


s 
BUILO CCM RQST BLK TO READ INTO USER BUFFERO3 00305 
03 


MEMORY ALLOCATED 


NO MEM, EXIT 


BUILD CCM RQST 


SET UP RETURN ADDR 


SET OP-CODE TO READ, IMMEDIATE RETURN 
USE IMMEDIATE RETURN 
SET BUFFER LENGTH 


SET BUFFER ADDRESS, BYTE/WORD FLAG 


SET READ ACTIVE 


AT THIS POINT CCM RQST HAS BEEN QUEVED 


SET UP RETURN COMPLETION ADDRESS 


EXIT 
IF TCM TQST CANNOT BE INITIATED WE EXIT 
HERE, AFTER RETURNING ALLOC. MEMORY. 


03 00307 


03 00308 
03 00309 
03 00310 


03 00324 


eeeeenee 


03 00326 
03 00327 
03 00328 


03 00331 
03 00332 


03 00333 
03 00334 


seseneee 


03 00336 


03 00337 


03 00338 
03 00339 


VTAM AL 


000460 
O00461 
oo046e 
000463 
Oo0464 
000465 
000466 


000467 
000470 
000471 
000472 


000473 
000474 
000475 
000476 
000477 
000500 
000501 
000502 
000503 
000504 
000505 


000506 
000507 
000510 
000511 
000512 
000513 
oo00si4 
000515 


000516 
000517 
000520 
000521 
o005ee 
000523 
000524 


000525 
000526 


000527 
000530 
000531 
000532 
000533 


000534 


000535 
000536 
000537 


000540 
000541 
ooos4e 
000543 
ooos4y 
000545 
000546 
000547 
000550 
o00sst 


900552 
000553 
900554 
000555 


000556 


000557 
000560 
000561 
000562 
000563 
000564 
000565 
000566 


000376 
000600 
000000 
006030 
000463 
001000 
100121 


006017 
001471 
001016 
000515 


006010 
000015 
006020 
000453 
074005 
oo6s05 
000460 
000600 
000400 
006030 
oo0s04 


001010 
100121 
006057 
001471 
005012 
002000 
000411 
065007 


015004 
150463 
904250 
005012 
005101 
002000 
000000 


006027 
001471 
ooo002 
006010 
000534 
056010 
001000 
100121 


000000 


015007 
054732 
005012 
ooo00e 
016006 
Oo6441 
001447 
006410 
001447 
002000 
000125 
054720 
005012 
oe6002 
oo0002 
016000 
054717 
016001 
054716 


150460 


055013 
024712 
oNTie 
001004 
000565 
OOo4o4! 
005021 
006140 


>M>>DED> DEMSM>em>rr> Deve D>DEm>m 


D>>DVYS YS D> DH yyrr yr 


PPrDE >>> FP PPE E ESSE SMPSDE DE y>y>r>ye > 


1612 


1613 
1614 
1615 
1616 
1617 
1618 


1619 
1620 
1621 


eens 


ROSO 


ROSOA 
. 


RQBLK 


eens 


RD100 


ocB 


RD100X 


JMP* 


SPACE 


LOAE 
JANZ 
GETMEM 


JAZ* 
STAE 


TAB 
JMPM 


sTB 
FETCHA 
LRLA 
TAB 
INCR 
JMPM 
LOBE 


SET 
LDAI 


STA 
JMP* 


EEC 


TYREAD ( 30) PAGE 


TYREAD 03 00340 
MODE = 1, STANDARD 03 00341 
BUILD CCM RQST TO OUTPUT PROMPT CHARACTER. 03 00342 
INPUT CHRS INTO BUFFER UNTIL FULL OR CR CHRO3 00343 
1S INPUT. 03 00344 
03 00345 
2 03 00346 
ROMEM sees 
RDSOA MEMORY ALLOCATED 03 00348 
VTSMPI,13 03 00349 
TYREAD NO MEM, EXIT 03 00350 
ROMEM 
TCSBRQ BUILD CCM RQST 03 00353 
TCRCA, TCD SET READ ACTIVE 03 00354 
GET PROMPT CHARACTER 03 00355 
TCD, TCPCH, TCPCHB, TCPCHZ 03 00356 
8 
(B) = USER PROMPT CHARACTER 
o1 (A) = 1 
TYROCC OUTPUT CONTROL CHARACTER 
CCM REQUEST QUEVED, EXIT 
ROMEM 
8 
RO100 SET UP RETURN COMPLETION ADDRESS 
8,ROBLK 
TYREAD EXIT 
03 00367 
USER PROMPT CHARACTER OUTPUT. IF LINE ERRORO3 00368 
COMPLETE RQST ANO EXIT. OTHERWISE, BUILD 03 00369 
CCM RQST TO INPUT A CHARACTER. 03 00370 
03 00371 
2 03 00372 
03 00373 
TCD, TCRCA, TCRCAB, TCRCAZ 03 00374 
ROMEM 03 00375 
03 00376 
8 03 00377 
6 ,ROBLK GET DETAIL STATUS 03 00378 
RAO+1,RD4O! DATA-SET-READY- OFF 03 00379 
RA1+8,RD401 BREAK 03 00380 
TCSFRR GET READ RQST ADOR 03 00381 
RORQST 03 00382 
03 00383 
RFCB,B 03 00384 
8 03 00385 
OCRECL,OCB GET BUFFER LENGTH 03 00386 
ROBLEN 03 00387 
OCBUFF,DCB GET BUFFER ADDR, BYTE/WORD FLAG 03 00388 
ROBUFF 03 00389 
SET UP DYNAMIC COUNT, BUFFER ADDR IN TCD 03 00390 
BRI5 TURN SIGN BIT OFF TO POINT AT LHW 03 00391 
TCD, TCRBF , TCRBFB, TCRBFZ 03 00392 
ROBLEN SET CHARACTER COUNT(80 MAX.) 03 00393 
ROBUFF 03 00394 
RD100x 03 00395 
1 *2 03 00396 
03 00397 
a1 CHRCNT GTR 80 03 00398 


VTAM AL 


000567 
000570 


000571 
000572 
000573 
000574 
000575 
000576 
000577 


000600 


000601 
000602 
000603 


000604 
000605 
000606 
000607 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000620 
000621 
000622 
000623 
000624 


000625 
000626 
000627 
000630 
000631 
000632 
000633 


000634 


000635 
000636 
000637 
000640 
000641 
oo0064e 
000643 
000644 
000645 


000646 


000647 
000650 
00065! 
000652 
000653 


000654 


000655 
000656 
000657 


000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000670 
000671 
000672 
000673 


000674 
000675 


oodiel 
001004 


000576 
006010 
000120 
001000 
000600 
006120 
000121 


055012 


015010 
055014 


024665 
oo000e 
006010 
000646 
056010 
016003 
150463 
110440 
056003 
005101 

056011 
005021 

006120 
000014 
110440 
056012 
014651 

150440 
004241 


004257 
135004 
004357 
150421 
004257 
135004 
055004 


005101 


004246 
135006 
004346 
150467 
004246 
135006 
055006 
001000 
101471 


024622 
000002 
006010 
000654 
056010 
001000 
100534 


00000 


015007 
054612 
005012 
000002 


015014 
001004 
000674 
016006 
006441 
001453 
006150 
00440 
001016 
001453 
001000 
000773 


006010 
000014 


POD rrD mp 


> 


> > 


DP rrr r rrr > SPH Kerr PPE Err err err rr rrurryr 


Dr>DErr 


>> DPD >> Dryer ver 


1674 RDIOOY 


i} 
1681 RQBLK 


1698 
1693 


1700 


1701 ¢ 

1702 RDIOOA 
1703 ROBLK 
1704 


1705 
1706 


1707 
1708 
1709 
1710 
1711 
1712 
1713 


1714 RD200 
1715 


1716 

1717 

1718 RQBLK 
1719 ¢ 
1720 

17e1 


1722 
1723 


1724 
1725 
1726 
1727 RD200Z 


JAN 


LDAL 
JMP 

ADDI 
SETA 


FETCHA 
SETA 


LOB 
SET 
LDAI 


STA 
LDA 
ANA 
ORA 
STA 
INCR 
STA 
TBA 
ADDI 
ORA 
STA 
LDA 
ANA 
LRLA 
SETA 


INCR 
SETA 


SPACE 


ENTR 
FETCHA 


STA 
TAB 
SET 
FETCHA 
JAN 


LDA 
ST 


ANAI 
JANZ 
JMP 
GETMEM 


ROIOOY 


80 
ROLO0Y+2 
81 


TYREAD € 3) PAGE 


NO 


YES, SET TO 80 


TCO, TCDCC , TCOCCB, TCDCCZ 


SET READ TIMEOUT VALUE IF SPECIFIED 


TCD, TCSTO, TCSTOB, TCSTOZ 


TCO, TCDTO, TCOTOB, TCDTOZ 


RDMEM 
8 
RDIO0A 


8,ROBLK 
3,RQBLK 


BUILD CCM RQST TO INPUT CHARACTER 


SET UP RETURN ADDRESS 


SET OP-CODE TO READ 
IMMEDIATE RETURN 
SET BUFFER LENGTH TO 1 


SET BUFFER ADDR TO LAST WORD OF ROBLK 
ADD OFFSET 


BYTE COUNT 
SET WORD/BYTE COUNT FLAG IN TCD 


1 
TCD, TCRBC , TCRBCB, TCRBCZ 


SET 1ST CHAR. INPUT FLAG 


ol 
TCD, TCRRS , TCRRSB, TCRRSZ 


ROMEM 


ROMEM 
8 
RO200 


8,ROBLK 
RO100 


CCM REQUEST QUEUED, EXIT 


SET UP RQST COMPLETION ADDRESS 


AT THIS POINT CHARACTER HAS BEEN INPUT. 
TERMINATE READ _IF LINE ERROR. CHECK FOR 
CONTROL CHARACTER. MOVE CHR TO USER BUFFER 


TCD, TCRCA, TCRCAB, TCRCAZ 


ROMEM 
8 


CHECK FOR TIMEOUT 


TCO, TCOTO, TCOTOB, TCOTOZ 


RO200Z 


6,ROBLK 
RAO+1,ROYO2A 


0440 
ROWO2A 
RO2O00Y 
VTSMP1 12 


GET DETAIL STATUS 
DATA-SET-READY OFF 


MASK FOR PARITY, BREAK 
LINE ERROR 


ALLOCATE MEM FOR CCM ROBLK 


00399 


00400 
00401 
00402 
00403 


00404 
00405 


00406 


00407 
00408 
00409 
00410 


0041! 
00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 


00420 
00421 
o0422e 
00423 
oo4e4 
o04e5 


o04e6 


00427 
o04e8 
oo4e9 
00430 


00431 
00432 


00433 
00434 
00435, 
00436 
00437 
00438 
00439 


00440 
00441 


o044e 
0044S 
oo444 
0044s 
00446 
00447 


00448 
00449 


00450 
0045! 
00452 
00453 


VTAM AL TYREAD t 32) PAGE 


000676 006020 A 
000677 000476 E 
000700 074005 A 
000701 006505 A 
000702 000501 E 
000703 000600 A 
000704 000503 E 
000705 006030 A 
000706 000705 R 
000707 001010 A 1728 JAZ* RD200 03 00454 
000710 100654 R 
000711 054563 A 1729 STA TEMP 03 00455 
000712 005012 A 1730 TAB 03 00456 
000713 002000 A 1731 JMPM TCSBRQ BUILD CCM RQBLK 03 00457 
000714 000514 E 
000715 006010 A 1732 LDAI RO200x SET UP RETURN ADDRESS 03 00458 
000716 000733 R 
000717 056010 A 1733 STA 8,ROBLK 03 00459 
000720 010465 A 1734 LDA FIVE 03 00460 
000721 004250 A 1735 LRLA 8 03 00461 
000722 116003 A 1736 ORA 3,RQBLK 03 00462 
000723 150460 A 1737 ANA BRIS USE WAIT OPTION 03 00463 
000724 056003 A 1738 STA 3,ROBLK 03 00464 
000725 016013 A 1739 LDA 11 ,ROBLK FUNC CODE = 1, CLEAR READ RQST 03 00465 
000726 110431 A 1740 ORA Bs8 03 00466 
000727 056013 A 1741 STA 11,RQBLK 03 00467 
000730 074536 A 1742 STX ROTCD SAVE X REG. 03 00468 
000731 001000 A 1743 JMP* TEMP 03 00469 
000732 101475 R 
1744 * READ 1/0 CLEAR DONE 03 00470 
000733 034533 A 1745 RD200x LOX ROTCD RESTORE X REG. 03 00471 
000734 024540 A 1746 LOB TEMP 03 00472 
000735 006010 A 1747 LDAL 12 RETURN MEM FOR CCM ROBLK 03 00473 
000736 000014 A 
000737 056000 A 1748 STA 0.8 03 00474 
1749 PUTMEM VTSMP1, TEMP 03 00475 
000740 006010 A 
000741 000677 E 
000742 006027 A 
000743 001475 R 
000744 074005 A 
000745 006505 A 
000746 000702 E 
000747 000600 A 
000750 000462 E 
000751 006030 A 
000752 000751 R 
000753 006010 A 1750 LOAI RD4OO CHANGE CCM RQST COMPLETION ADOR. 03 00476 
000754 001351 R 
000755 024513 A 1751 Los ROMEM 03 00477 
000756 056010 A 1752 STA 8,RQBLK 03 00478 
000757 005001 A 1753 TZA 03 00479 
000760 055014 A 1754 STA TCOTO, TCO 03 o048O 
000761 005111 A 1755 1AR SET READ RQST STATUS TO I( TIMEOUT) 03 00481 
1756 SETA TCD, TCRRS, TCRRSB, TCRRSZ 03 00462 
000762 004246 A 
000763 135006 A 
000764 004346 A 
000765 150467 A 
000766 OO4246 A 
000767 135006 A 
000770 055006 A 
000771 001000 A 1757 JMP® RD200 RETURN TO TCMEXEC 03 00483 
000772 100654 R 
1758 * 03 00484 
1759 * CHECK IF INPUT CHR IS CARRIAGE RETURN, 03 00485 
1760 * BACKSLASH, BACKARROW. 03 00486 
1761 * 03 00487 
000773 055014 1762 RD200Y STA TCOTO, TCD 03 coves 


000774 016014 
000775 004350 
000776 054477 
000777 134477 
001000 001010 
001001 001072 
001002 134474 
001003 134474 
001004 001010 
001005 001143 
001006 134471 
001007 134471 
001010 001010 
001011 OOlell 


001012 015006 
001013 004346 
001014 150467 
001015 001010 
001016 001036 
001017 005001 


001020 004246 
001021 135006 


001022 004346 
001023 150467 
001024 004246 


1763 LDA {eben GET INPUT CHAR. 03 00489 


1765 STA INPTCR 03 00491 
1766 ERA TYCR 03 00492 
1767 JAZ RO2O1 CARRIAGE RETURN, TERMINATE INPUT 03 00493 


1768 ERA TYCR RESTORE 03 00494 
1769 ERA TYBSLH 03 00495 
1770 JAZ RO202 BACKSLASH, RESTART INPUT SEQUENCE 03 00496 


1771 ERA TYBSLH RESTORE 03 00497 
1772 ERA TYBKAR 03 oo4se 
JAZ RD203 BACKARROW, BACKUP CHR PTR,BLANK PREV. CHAR 03 00499 


1774 FETCHA TCO,TCRRS, TCRRSB, TCRRSZ 


1775 JAZ RO2O0A NOT 1ST CHAR. INPUT 


1776 TZA CLEAR 1ST CHAR. INPUT FLAG 
1777 SETA TCD, TCRRS, TCRRSB, TCRRSZ 


rrr Sh HDPE K HH VE H OH DH Hr D> > yyy 
a 
_ 
a 


VTAM AL 


001025 
001026 
001027 
001030 
001031 
001032 
001033 
001034 
001035 


001036 
001037 
001040 
001041 

001042 
001043 
001044 
001045 
001046 


001047 
001050 
001051 
001052 
001053 


001054 


001055 
001056 


001057 
001060 
001061 
001062 
001063 


001064 


001065 
001066 
001067 
001070 
001071 


001072 
001073 
001074 
001075 
001076 
001077 
001100 
001101 
001102 
001103 


oo1rey 


001125 
001126 
001127 
001130 
001131 
001132 
001133 
001134 


001135 


001136 
001137 
oo114O 
oor) 
oo1i4e 


135006 
055006 
O14446 
134451 
001016 
001036 
056006 
001000 
001453 


014437 
025013 
002000 
000034 
014433 
1349435 
001010 
001054 
065013 


015012 
005311 
055012 
001010 
001072 


015010 


055014 
oe44ie 
000002 
006010 
001064 
056010 
001000 
101471 


024404 
000002 
006010 
000654 
056010 
001000 
100654 


002000 
000546 
005012 
026002 
016001 

026000 
001004 
001103 
004041 

005021 

006140 
ooo1a21 

001004 
Oo1l1y 
006010 
000120 
001000 
001116 
006120 
000121 
145012 
055012 
014355 
134355, 
001010 
001130 
o10422 


024355 
001000 
001133 
oo5i11 
006027 
002506 
002000 
000000 


024333 
oo000e 
006010 
001271 
056010 
001000 
100654 


Dor DErryyr 


>DPPrDryrpr 


Dr>orr 
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1778 
1779 
1780 


1781 
1782 


1783 
1784 
1785 
1786 


1787 
1788 
1789 


1790 
1791 
1792 
1793 
1794 
1795 


1796 
1797 
1798 
1799 


1800 


1801 
1802 
1803 


1804 
1805 


1806 
1807 
1808 
1809 


1810 
1811 


1812 
1813 
1614 
1815 
1816 


1817 


1818 
1819 
1820 
1821 
1822 


1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 


1836 
1837 


1838 
1839 


1840 


1841 
1842 
1843 
1644 


1845 
1846 


. 


RO2O0A 


RD200B 


RQBLK 


. 
RD200C 
ROQBLK 


RD201 


RD2O1X 


RD2O1Y 


RO201B 


RDZ201C 


RQBLK 


LOA 
ERA 
JANZ 


STA 
JMP 


LDA 
LOB 
JMPM 


LOA 
ERA 
JAZ 


sTB 
LOA 
DAR 


STA 
JAZ 


FETCHA 
SETA 
LOB 
SET 
LDAI 


STA 
uMP* 


INPTCR 
TYBELL 
RD200A 


6, ROBLK 
ROYO2A 


INPTCR 
TCRBF , TCD 
TYSTCB 


INPTCR 
TYBKAR 
RD200B 
TCRBF ,TCD 
TcOCC, TCD 


TCDCC, TCD 
RO201 


TYREAD ir se PAGE 


1ST CHAR. INPUT 
IS IT A BELL CHAR. 
NO 


YES, CLEAR DETAIL STATUS TO RETURN EOF. 
COMPLETE REQUEST 


NOT A CNTRL CHR, STORE IN USER BUFFER 


STORE CHARACTER 


BACKARROW, DO NOT UPDATE BUFF ADDR, COUNT 


UPDATE DYNAMIC BUFFER ADDRESS 
RESET READ TIMEOUT VALUE 
DECREMENT DYNAMIC CHAR COUNT 


BUFFER FULL,COMPLETE REQUEST 


INPUT NEXT CHARACTER 


TCD, TCSTO, TCSTOB, TCSTOZ 
TCD, TCDTO, TCOTOB, TCDTOZ 


ROMEM 
B 
RO200C 


8,RQBLK 
ROMEM 


TCSFRR 


RFCB,B 
OCBUFF ,B 
OCRECL,B 
RD201X 

1 

81 

RO2O01Y 

80 
RD201Y+2 
81 

TCOCC, TCD 
TCOCC, TCD 
INPTCR 
TYCR 
RO201B 
TWO 
TYCRLF 
RD201C 
TYLF 


TYRDCC 


ROMEM 
8 
RO300 


8,RQBLK 
RO200 


SET UP RETURN ADDRESS 


CCM REQUEST QUEUED, EXIT 

SET UP REQUEST COMPLETION ADDRESS 

EXIT 

COMPLETE REQUEST, CONVERT CHAR CNT TO WORD 


COUNT IF WORD COUNT IS TO BE RETURNED. 


GET CHARACTER COUNT 


SAVE NO. OF CHRS. INPUT 


CR, OUTPUT LF 
BUFFER FULL, OUTPUT CR/LF 


OUTPUT CONTROL CHAR(S), LF OR CR/LF 
CCM REQUEST QUEUED EXIT 


VTAM AL 


001143 
oo1i4y 
001145 
001146 
001147 


001150 
oo1tsi 
001152 
001153 
001154 
001155 
001156 
001157 
001160 
oo1l6! 
001162 
001163 
001164 
001165 


001166 
001167 
001170 
Oo1l71 
001172 
001173 
oo1l74 
001175 
001176 
001177 
001200 
00120) 
001202 


001203 


001204 
001205 
001206 
001207 
001210 


oolell 
oole12 
001213 
oo1214 
001215 
001216 
001217 
oo1220 
oo1e21 
001222 
001223 
oo1ee4 
001225 
001226 
001227 
001230 
001231 


001232 
001233 
001234 
001235 
001236 
001237 
001240 
oo1e4t 
oo1242 
001243 
001244 
001245 
001246 
001247 
001250 


001251 
001252 
001253 
001254 
001255 
001256 
001257 
001260 
oo1e61 
001262 


001263 
001264 


002000 
001073 
054322 
o0s0l1e 
oe600e 
000002 
016001 
150460 
055013 
016001 
026000 
001004 
001160 
004041 
oo50e1 
006140 
oo01e1 
001004 
001171 
006010 


000120 
001000 
001173 
006120 
000121 
055012 
015007 
054273 
010422 
006027 
001503 
002000 
000000 


024265 
000002 
006010 
000534 
O5R010 
001000 
100654 


oo2000 
001144 
o0s01e 
026002 
016001 
026000 
001004 
oo1eee 
004041 
005021 
006140 
000121 
001004 
001233 
006010 
000120 
001000 


001235 
006120 
oooliel 
054237 
015012 
144235 
001010 
001054 
124232 
005111 
055012 
144227 
001016 
001260 
005111 


004246 
135006 
004346 
150467 
004246 
135006 
055006 
015013 
001004 
001264 


005311 
005211 


DE>DH Se DH D> rrr rer D> he SDP rh > ro Derr rrr rrrrm> 


Pr DEP errr rrr HVE Hr Or Dh hh rrr D HPO DH Herr Dy rr remy 


1909 
1910 


1911 


RD202 


oce 


RD202A 


RD2028 


0203 


RO203X 


RD203Y 


RD203Z 


LDA 
JAN 


DAR 


igi2 
1913 RD203A CPA 


TCSFRR 
RORGST 
RFCB.B 
OCBUFF ,OCB 
BRIS 
TCRBF , TCD 
OCBUFF ,B 
DCRECL.B 
RD202A 

1 

a1 

Ro2028 

80 


ROZ02B+2 
81 


TCOCC,TCD 
TCRCA, TCD 


RO2O3Y+2 
81 

TEMP 
Tcocc , TCD 
TEMP 
RO2008 
TEMP 
Tcocc , TCD 
TEMP 
RO203Z 


TYREAD « 34) PAGE 


RESET COUNT, BUFFER POINTER, OUTPUT CR/LF 


RESET BUFFER POINTER 


GET CCM RQBLK ADDR 


OUTPUT CR/LF 


CCM REQUEST QUEUED, EXIT 


SET UP RQST COMPLETION ADDRESS TO RESTART 


DECREMENT CHAR CNT, BUFFER PTR, BLANK 
PREVIOUS CHAR 


NO INPUT CHARS, INPUT NEXT 
DECREMENT COUNT OF CHARS. INPUT 


SET 1ST INPUT CHAR. FLAG 


TCO, TCRRS, TCRRSB, TCRRSZ 


TCROF ,TCD 
RO2ZO3A 


BLANK PREVIOUS CHAR 
BACK UP TO LHW OF SAME WORD 


BACK UP TO RHW OF PREVIOUS WORD 


10 


03 00623 


03 00624 
03 00625 
03 00626 


VTAM 


001265 
001266 
001267 
001270 


o01e71 
o01e72 
001273 
o01e74 


001275 
001276 
001277 
001300 
001301 
001302 
001303 
001304 
001305 
001306 
001307 
001310 
001311 
001312 
OO1313 
001314 
001315 
001316 
001317 
001320 
001321 
001322 
001323 
001324 
001325 
001326 
001327 
001330 
001331 
001332 
001333 


001334 
001335 
001336 
001337 
001340 
001341 
001342 
001343 
001344 
001345 
001346 
001347 
001350 


001351 

001352 
001353 
001354 
001355 
001356 


001357 
001360 
001361 
001362 
001363 
001364 
001365 
001366 
001367 
001370 
001371 
001372 


001373 
001374 
001375 
001376 
001377 
001400 
oo14ol 
001402 


Al 


055013 
014215 
001000 
001037 


000000 
015007 
054175, 
005012 
00002 
016006 
006441 

001457 
006410 
001457 
002000 
001212 
005012 
026002 
016001 

026000 
001004 
001313 
O04041 

0050e1 

006140 
ooole1 

001004 
001324 
006010 
000120 
001000 
001326 
006120 
ooole! 

145012 
025013 
001010 
001334 
02000 
000056 


015004 
004357 
oo1016 
001344 
015012 
005111 
004341 
055012 
006017 
001271 
054002 
001000 
001352 


ooo000 
015007 
o54115 
002000 
001303 
OS41it 


015006 
150467 
001016 
001366 
015012 
001000 
001370 
024102 
016005 
025002 
056013 
024076 


015006 
004346 
150467 
001016 
001403 
016006 
001000 
OO1414 


DEDEY EHO VS yo Dyer rr US >> rome Dr DE rye rrr 


D>> DE > ro ro Dy>>> 


>mM>>>> 


DE>USHhHhH Sry rr Vy yVyS yy 


cone 


RD300 


RQBLK 


RDSOOX 


RO3Z00Y 


RD300Z 


RD300A 


RD4OO 


RD4OOA 


JMPM 


SPACE 


STA 
FETCHA 
JANZ 


LDA 
JMP 


LOB 
LOA 
LOB 
STA 


LOB 
FETCHA 
JANZ 


LDA 
JMP- 


TYREAD ( 35) PAGE 


TCREF ,TCD 03 
TYBLK STORE BLANK CHAR 03 
ROZOOA+1 03 
03 

03 

CR/LF OR LF OUTPUT, CLEAR UNUSED PORTION OF 03 

BUFFER TO BLANKS FOR MODE = 1 READ. 03 

03 

o3 

TCRCA,TCD 03 
ROMEM 03 
03 

8 03 
6,RQBLK GET DETAIL STATUS 03 
RAO+1,ROYO3 DATA-SET-READY OFF 03 
RA1+8,RO4O3 BREAK 03 
TCSFRR GET CHARACTER COUNT 03 
03 

RFCB,.B 03 
OCBUFF ,B 03 
OCRECL ,B 03 
RO300X 03 
1 03 
o3 

81 03 
RO3Z00Y 03 
80 03 
ROZ00Y+2 03 
81 03 
TCOCC TCD 03 
TCRBF ,TCD 03 
RO300Z BUFFER FULL, NO DEBLANKING 03 
TYBKBF CLEAR REMAINING PORTION OF BUFFER TO BLANKSO3 
TCD, TCRBC, TCRBCB, TCRBCZ 03 
RD300A BYTE COUNT 03 
Tceoce TCD CONVERT TO WORD COUNT ne 
1 03 
TCOCC,TCD 03 
RD300 MOVE RETURN ADDRESS TO RO4OO 03 
ROWOO 03 
ROWOO+! COMPLETE TCM REQUEST 03 
03 

03 

TCM REQUEST COMPLETED, RETURN NORMAL/ERROR 03 

STATUS AND RETURN MEMORY FOR CCM ROBLK 03 

03 

3 03 
03 

TCRCA,TCD 03 
ROMEM 03 
TCSFRR GET TCM REQUEST ADDR 03 
RORQST 03 
TCD, TCRMD, TCRMDB, TCRMDZ 03 
ROYOOA MODE = 4, COUNT IN CCM RQST BLK 03 
TCOCC TCO MODE = 1, COUNT IN TCD 03 
ROYOOA+2 03 
ROMEM 03 
5,RQBLK 03 
TCCTA,TCD (8) = TCM CTBL_ADDRESS 03 
CTWOS,.B PUT NO. WDOS/BYTES TRANFERED IN TCM CTBL 03 
ROMEM 03 
TCD, TCRRS, TCRRSB, TCRRSZ 03 
RO4O0B TIMEOUT(TCRRS#1) 03 
6, ROBLK CCM DETAIL STATUS 03 
ROWOOC 03 


00627 
00628 
006e9 


00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00638 
00639 
00640 
00641 


00642 
00643 


00644 
00645 
00646 
00647 
00648 


00649 
00650 
00651 


00652 
00653 
00654 
00655 


00656 
00657 
00658 


00659 
00660 


00662 
00663 
oo664 
00665 
00666 


00667 
oo6e8 


00669 
00670 
00671 
00672 
00673 
00674 


00675 
00676 
00677 
00678 


00679 
00680 


00681 


00682 
00683 


oose4 
0068s 
00686 
00687 
00688 
00689 


00690 


00691 
00692 


MW 


VTAM Al 


001403 


001404 
001405 
001406 


001407 
ooo 
oot 
oomte 
OO1413 
Oor4ty 


001415 
001416 
001417 
001420 


oo14el 
o014ee 


001423 
oo14e4 
001425 
001426 


001427 
001430 
001431 
001432 
001433 
001434 
001435 
001436 
001437 
001440 
00144 
oo144e 
001443 
oo1444 
001445 
001446 


001447 
001450 
001451 
001452 


001453 
001454 
001455 
001456 


001457 
001460 
001461 
001462 
001463 
001464 
001465 
001466 


001467 
001470 
001471 
001472 
001473 
001474 
OO14N75 
001476 
001477 
001500 
001501 
001502 
001503 
001504 
001505 


005001 


004246 
135006 
004346 


150467 
004246 
135006 
055006 
010440 
024053 


100444 
100747 
002000 
000162 


100244 
100147 


024045 
006010 
000015 
056000 


006010 
000741 
006027 
001471 
074005 
006505 
000746 
000600 
000750 
006030 
001440 
005001 
055007 
055014 
001000 
101351 


006017 
000534 
001000 
001461 


006017 
000654 
001000 
001461 


006017 
001271 
006057 
001351 
005001 
055012 
001003 
001352 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
900215 
000334 
000337 
000207 
106612 
000240 
120240 


D>rp> D> >>> DSM>M>y>yD>m> >r>> Phe M>rr >>>rr> rr > 


D>>rvVS> D> DHD> 


PPE > rrr rrr rrr ry> 


TYREAD ( 36) PAGE 
1980 RD4OOB TZA 03 00693 
1981 SETA TCD, TCRRS, TCRRSB, TCRRSZ 03 00694 
1982 LOA Bs15 TIMEOUT, SET STATUS NEG. 03 00695 
1983 RDYOOC LOB ROROST RQST ADDR 03 00696 
1984 EXT TC$CRQ 03 00697 
1985 DINTS 03 00698 
1986 vMPM = TCSCRO COMPLETE REQUEST 03 00699 
1987 EINTS 03 00700 
1988 * RETURN MEMORY FOR CCM RQST BLOCK 03 00701 
1989 LoB ROMEM 03 00702 
1990 LoAL «13 03 00703 
1991 STA 0.8 SET SIZE OF CCM RQST BLK 03 00704 
i992 ExT VISMP 1 03 00705 
1993 PUTMEM VTSMP1,RDMEM OEALLOCATE MEMORY 03 00706 
1994 TZA CLEAR CCM ROBLK ADDR(SET TCD NOT READ ACTIVO3 00707 
1995 STA TCRCA, TCD 03 00708 
1996 STA TCDTO, TCD 03 00709 
1997 vMP* = RO4OO EXIT TO TCMEXEC 03 00710 
1998 EveC 03 00711 
1999 * 03 00712 
2000 ROYO1 LDAE = RDI00 PATCH RETURN ADDR AT RO4OO 03 00713 
2001 MP ROWO4 03 00714 
2002 * 03 00715 
2003 * 03 00716 
2004 ROYOZA LDAE —-RD200 03 00717 
2005 MP ROWO4 03 00718 
2006 * 03 00719 
2007 RO4O3 LDAE = RD300 03 00720 
2008 ROYO4 STAE  RO4OO 03 00721 
2009 TZA 03 00722 
2010 STA Tcpcc , TCD CLEAR NO. OF CHARS INPUT 03 00723 
2011 UMP RO4O0+1 03 00724 
2012 EvEC 03 00725 
2013 * 03 00726 
2014 * CONSTANTS AND DATA STORAGE 03 00727 
2015 * 03 00728 
2016 ROTCD DATA 0 TCD ADDRESS 03 00729 
2017 RORQST DATA 0 READ REQUEST ADDRESS 03 00730 
2018 ROMEM DATA 0 CCM REQUEST BLOCK ADOR 03 00731 
2019 ROMODE DATA 0 MODE OF READ REQUEST 03 00732 
2020 ROBLEN DATA 0 BUFFER LENGTH 03 00733 
2021 RDBUFF DATA 0 BUFFER ADDRESS 
2022 TEMP DATA 0 TEMPORARY 


2023 INPTCR DATA to) SAVE CELL FOR INPUT CHAR. 
CARRIAGE RETURN CHARACTER 


2025 TYBSLH DATA 0334 BACKSLASH CHARACTER 
2026 TYBKAR DATA 0337 BACKARROW CHARACTER 
2027 TYBELL DATA 0207 BELL CHARACTER(EOF) 
2028 TYCRLF DATA 0106612 

2029 TYBLK DATA 0240 BLANK CHR(ASCII) 


2030 TYBKBK DATA 0120240 


PROGRAM NAME - 


TYWRIT - PROCESSES WRITE REQUESTS FOR TTY TCM 


ENTRY CONDITIONS - 
(X) = ADDRESS OF TCD 


EXIT CONDITIONS - 
(X) DESTROYED 
(A) AND (B) DESTROYED 


12 


VTAM Al 


001506 


001507 
001510 
oo1sil 
001512 
001513 


001514 
001515 
001516 
001517 
001520 
001521 
001522 
001523 
001524 


001525 
001526 
001527 
001530 
001531 
001532 
001533 
001534 


001535 
001536 
001537 
001540 
001541 


9001542 
001543 
001544 
001545 
001546 


001547 
001550 
001551 
001552 
001553 
001554 
001555 


001556 
001557 
001560 
001561 


001562 
001563 
001564 
001565 


001566 
001567 


001570 


001571 
001572 
001573 
001574 
001575 
001576 
001577 
001600 
001601 
001602 
001603 
001604 
001605 
001606 
001607 


001610 
001611 
001612 
001613 
Oo1614 
001615 
001616 


000000 
900001 
002000 
000000 
001010 
101506 
054756 


006010 
000015 
006020 
001430 
074005 
006505 
001435 
000600 
000704 


006030 
001525 
001010 
101506 
054734 
005012 
002000 
000714 


015004 
004350 
150421 
001010 
001653 


015004 
004355, 
150421 
001010 
001566 


015006 
004354 
150421 
001010 
001653 
005101 
024714 


100444 
100747 
002000 
001420 


100244 
100147 
001000 
101506 


006010 
001602 


024675 
000002 
056010 
010465 
004250 
116003 
150460 
056003 
074673 
001000 
102466 
024663 
034667 
016006 
150422 
001016 
001643 


016003 
110440 
056003 
016013 
150463 
006110 
001400 


>D>M>>r 


D>>ryry MP>rDS D> MSM>>m>>d 


PPP rrr > DPS r rr Dr rrr rrr rrr D> DH >> MPhehe HO D>Hhre D> d>>r> 


WROS: 


RQBLK 


WRIO 


TYREAD ( 37) PAGE 


CALLING SEQUENCE - 


STA 


JMPM TYWRIT 
(RETURN 


FIND WRITE REQUEST 
TYWRIT NO RQST, EXIT 
WRQSTA SAVE RQST ADDR 


GETMEM VTSMP1,13 


JAz* 


STA 
TAB 
JMPM 


TYWRIT NO MEM EXIT 
WRMEM 
TCS$BRQ BUILD CCM RQST 


FETCHA TCD,TCSWL,TCSHLB, TCSHLZ 


JAZ 


WR2O DIRECT CONNECT 
DIAL-UP LINE, CHECK PHYSICAL CONNECTION 


FETCHA TCO,TCCON,TCCONB, TCCONZ 


JAZ 


WROS NOT CONNECTED 


FETCHA TCO,TCLOF,TCLOFB, TCLOFZ 


WR2EO CONNECTED 
o1 LINE DISC., SIMULATE OSR OFF, COMP. RQST, 
WROSTA 
TC$CRQ 
TYWRIT RETURN 
CHECK FOR PHYSICAL CONNECTION 
WRIO SET UP RETURN ADORESS 
WRMEM 
8 
8,RQBLK 
FIVE SET OP-CODE TO FUNCTION 
8 
3,RQBLK 
BRIS USE WAIT OPTION 
3,RQBLK 
WRTCD SAVE X REG. 
WRMEM 
WRMEM 
WRTCD 
6, ROBLK GET DETAIL STATUS 
BSI CHECK FOR DATA-SET-READY 
WRISA ON 
OFF, SENSE DATA-SET-READY ON EVENT 
3,ROBLK IMMEDIATE RETURN 
Bs15 
3,RQBLK 
11,ROBLK FUNC CODE = 3 
RHW ’ 
01400 


13 
00756 


00757 
00758 


00771 


00772 


00773 
00774 


VTAM Al 


001617 
001620 
001621 
001622 
001623 
001624 
001625 
001626 
001627 


001630 
001631 
001632 
001633 
001634 
001635 
001636 


001637 
001640 
001641 
001642 
001643 


oo1644 
001645 
001646 
001647 
001650 
001651 
001652 


001653 
001654 
001655 
001656 
001657 
001660 


001661 
001662 
001663 


001664 
001665 
001666 
001667 
001670 
001671 
001672 


001673 
001674 


001675 
001676 
001677 
001700 
001701 
001702 


001703 


001704 
001705 
001706 
001707 
001710 
oo1711 
oo1712 
001713 
oo1714 
001715 


001716 
Oo1717 
001720 
oo17el 
001722 
001723 
001724 
001725 


056013 
o104ee 
O56014 
006010 
001630 
056010 
065011 
001000 
102466 


006027 
002466 
006010 
001637 
056010 
001000 
101506 


015011 
054625 
005001 
055011 
005101 


004255 
135004 
004355 
150421 
004255 
135004 
055004 


015004 
004352 
150464 
140464 
001016 
001673 


015007 
001010 
001703 


015004 
004354 
150421 
001010 
002460 
001000 
001703 


015001 
ooso1e 
go00002 


016001 
004350 
150472 
005311 
001016 
002460 


024566 
000002 


016001 
004354 
150467 
140423 
001010 
001714 
005001 
001004 
120464 
054551 


oo4e43 
135006 
004343 
150467 
004243 
135006 
055006 
O14541 


DrPrDHED> DH yr ySrrr 


>>> errr Pb rrrr 


D>> D>>>r>> 


D> D>>>> 


D>>>rr ->> 


PPP rrr rr> Fh >r DS >r rr >> 


2103 
2104 
2105 
2106 


2107 
2108 
2109 


2110 
eu 


e1te 


2113 
e214 


2s 
2116 
2117 
e118 
e119 
2120 
2lal 


e122 
21e3 
2124 
2125 
2126 


2127 
2128 


e1e9 
2130 


2131 


2132 
2133 


2134 
2135 


2136 
2137 
2138 


2139 
2140 
214i 


2142 
2143 
2144 


2145 
2146 


2147 
2148 
2149 
2150 
2151 
2152 


2153 
2154 


2155 
2156 
2157 
e158 
2159 


2160 


WRIOA 


WRI5A 


Reo 


WR30B 


STA 
LDA 
STA 
LOAI 
STA 
sTB 
UMP * 
LOBE 
LDAI 


STA 
JMP* 


LDA 
STA 
TZA 
STA 
INCR 
SETA 


FETCHA 


suB 
JANZ 


FETCHA 
JAZ 


FETCHA 


JAZ 


FETCHA 
TAB 
SET 
FETCHA 


DAR 
JANZ 


LOB 
SET 
FETCHA 


LDA 


TYREAD ( 38) PAGE 


11,ROBLK 
esi MASK FOR OSR ON 
12,ROBLK STORE IN LCB EXT WORD 
WRIOA SET UP RETURN 
8,ROBLK 
TCWCA,TCD SET WRITE ACTIVE 
WRMEM 

CCM RQST QUEVED 
WRMEM 
WRIS 
8,ROBLK 
TYWRIT RETURN 

ON RETURN, OSR IS ON 
TCWCA, TCO 
WRMEM 
TCWCA,TCD 
0 SET PHYSICAL CONNECTION BIT, OSR ON 


1 
TCD, TCCON, TCCONB , TCCONZ 


IF FULL-DUPLEX, CHECK IF WRITE CAN BE 
INITIATED. 
GET TRANSMISSION MODE 

TCO, TCXMM, TCXMMB , TCXMMZ 


THREE 
WR30 NOT FULL-DUPLEX 


FOX,CHECK FOR READ ACTIVE WITH ECHO 
TCD, TCRCA, TCRCAB, TCRCAZ 


WR3OA NOT READ ACTIVE 


READ ACTIVE, CHECK IF ECHO MODE 
TCD, TCECH, TCECHB, TCECHZ 


WR300C ECHO MODE, CANNOT INITIATE WRITE 
WR3OA INITIATE WRITE 
talSe GAN BE INITIATED TF ROSY’ IS ON TOP 
OF TCD ROST QUEUE. 
TCD, TCROH, TCROHB, TCROHZ 


8 
RQST,ROPHD,8,4 GET OP-CODE OF TOP RQST 


WR300C WRITE RQST NOT ON TOP, EXIT 


INITIATE WRITE REQUEST 
WROSTA GET RQST ADOR 
B 
RQST,ROPHO,12,3 


FOUR IS MODE = 4 
WR30B YES 
NO, SET MODE = 1(DEFAULT) 
01004 
THREE 


WRMODE SAVE MODE 
TCD, TCWMD , TCWMDB, TCWMDZ 


03 


00816 
00817 
oosis 
00819 


00820 
00821 
00822 


00823 
00824 


008e5 


00826 
00827 


o06e8 
00829 
00830 
00831 
00832 
00833 
00834 


00873 


VTAM AL 


001726 
001727 
001730 
001731 


001732 
001733 
001734 
001735 


001736 


001737 
001740 
Oo1741 
001742 
001743 
001744 
001745 
001746 
001747 
001750 
001751 
001752 
001753 
001754 
001755 


001756 


001757 
001760 
001761 
001762 
001763 


001764 
001765 
001766 
001767 
001770 
001771 
001772 
001773 
001774 
001775 
001776 
001777 
g0e000 
002001 
02002 
002003 
002004 
002005 
002006 
002007 
002010 
002011 
oo0e2012 
002013 
002014 
002015 
002016 
002017 
002020 
002021 
oo2022 
002023 
002024 
oo020e5 
002026 
002027 
002030 
002031 


002032 


002033 
002034 
002035 
002036 
002037 
002040 
002041 
ooec4e 
002043 
002044 
002045 


001010 
001764 
024541 
026002 


000002 
016000 
054534 
016001 
054533 


024527 
000002 
006010 
001756 
056010 
016003 
150463 
006110 
100400 
056003 
014520 
056011 
014517 
056012 
065011 
001000 
102466 


024507 
000002 
006010 
002301 
056010 
001000 
101506 


024505 
026002 
016001 
054501 
150460 
005012 
016000 
004350 
006137 
001504 
001010 
002017 
006137 
001504 
134476 
001010 
002026 
134473 
134471 
001016 
002017 
010423 
054463 
006010 
002503 
001000 
002032 
O14446 
ossoil 
006017 
001506 
054034 
001000 
002071 
005111 
O54446 
006010 
oo0e502 


024433 
000002 
110440 
056012 
014440 
056011 
006010 
002052 
056010 
016003 
150463 
006110 
100400 


>>D> 


> P>r> 


DP>D> rr DOP rr rrr rrr er verre 


DPE r> DEKH VE Or VE DVS Sr VS yr DSH VHS DH US dS yyy yrrry 


>> rrr D> rrr rrr 


ocB 


eeee 


WRYO 
ROBLK 


WR5O 


WRSOA 


WR50B 


WREO 
RQBLK 


WR5O 


WRQSTA 
RFCB.ROST 


8 

DCRECL ,OCB 
WRBLEN 
OCBUFF ,OCB 
WRBUFF 


2 


WRMEM 
8 
WRYOA 


8,RQBLK 
3,RQBLK 
RHW 

0100400 


3,RQBLK 
WRBLEN 
9,ROBLK 
WRBUFF 
10,RQBLK 
TCWCA, TCD 
WRMEM 


WRMEM 


8 
WRe0O 


8,ROBLK 
TYWRIT 


WRQSTA 
RFCB,.B 
OCBUFF ,B 
WRBUFF 
BRIS 


0.8 
8 
TYBLK 
WRSOA 
TYBLK 


TYZER 
WR5OB 


TYZER 
TYONE 
WRSOA 


FOUR 
CHRCNT 
TYFORM 


WREO 


WRMEM 
TCHCA,TCD 
TYWRIT 


WRIOO 
WRIOOA 


CHRCNT 
TYLFLF 


WRMEM 


8 

S15 
10,RQBLK 
CHRCNT 
9,RQBLK 
WR70 


8,RQBLK 
3,.RQBLK 


RHW 
0100400 


TYREAD ( 39) PAGE 


MODE = 1 OR NEQ 4 


SAVE RECORD LENGTH (8YTES/WORDS) 
SAVE BUFFER ADDRESS, BYTE/WORD CMT FLAG 


MODE = 4 , TRANSPARENT 
BUILD CCM RQST BLK TO OUTPUT USER BUFFER 


SET UP RETURN ADDR 


SET OP-CODE TO WRITE, IMMEDIATE RETURN 


SET BUFFER LENGTH 
SET BUFFER ADDRESS, BYTE/WORD FLAG 
SET WRITE ACTIVE 


CCM ROST QUEVED, EXIT 


SET UP RETURN COMPLETION ADDRESS 


EXIT 


MODE = 1 , STANDARD 
BUILD CCM RQST TO OUTPUT FORMS CONTROL 


GET BUFFER ADDRESS 


GET 1ST CHR IN BUFFER 


BLANK, NO LF CHAR. 
RESTORE 


ZERO, ONE LF CHAR. 


03 


03 
INVALID FORMS CNTRL CHAR, BLANK DEFAULT CHRO3 


ONE, FORMS CHR 


SET TCD WRITE ACTIVE 
MOVE RETURN ADDRESS TO WR100 


OUTPUT USER BUFFER 
ONE LINE FEED CHAR. 


SET TO BYTE COUNT 
SET BUFFER ADDR OF FORMS CONTROL CHR 


SET BUFFER LENGTH 
SET UP RETURN ADDRESS 


SET OP-CODE TO WRITE, IMMEDIATE RETURN 


VTAM AL 


002046 
002047 
002050 
002051 
002052 
002053 
002054 
002055 
002056 
002057 


002060 


002061 
002062 
002063 


002064 
002065 
002066 
002067 
002070 
002071 
002072 
002073 
002074 
002075 


002076 
002077 
002100 
002101 
002102 
002103 
002104 
002105 
002106 
002107 
002110 
002111 
o02112 
002113 
002114 


002115 


002116 
002117 
002120 
ooelel 

002122 
002123 
002124 
ooe2te5 
002126 
002127 
002130 
002131 

002132 
002133 
002134 
002135 
002136 
002137 
002140 
002141 

ooe14e 
002143 
002144 
002145 
002146 
002147 
002150 
002151 

002152 
002153 
002154 
002155 
002156 
002157 
002160 
002161 

002162 
002163 
002164 
002165 
002166 
002167 


002170 
002171 


056003 
065011 
001000 
102466 
006010 
002060 
024411 
056010 
001000 
101506 


ooocco 


015011 
054403 
ooso012 
oooo02 
016006 
006441 
002255 
006410 
002255 
002000 
001510 
054376 
ooso12 
026002 
oo0002 
016000 
054370 
016001 
054367 
150460 
005012 
016000 
054367 
150463 
006110 
120000 
056000 
014362 
024352 
056014 


005001 


054360 
014351 

001004 
002125 
014345 
001000 
ooe14e 
014342 
054347 
005111 

004341 

054342 
124336 
005012 
005322 
014332 
006400 
002165 
001000 
02152 
054331 

005012 
004241 

054330 
005021 

124321 

005012 
005322 
016000 
150463 
006137 
001504 
001016 
oo2e02 
044316 
014314 
144314 
001010 
oo02e02 
016000 
004350 
006137 


001504 
001016 


DPPr>Dre Dye yr 


PD HHH VS Herr VE DHHS ES rrr rH>rH VE DHE HSH Hr Pr SE >r VS HUSH > F HHH HH HSE YE EEE E> OE ESE>MP>VS VS >r>S>rr > 


WR100 


WRIOOA 


ocB 


WRIO1 


WR102 


10 
WR103 
je 


WRIOY 


STA 
sTB 
JMP* 
LDAI 
LoB 


STA 
JMP* 


EVEC 


SPACE 


ENTR 
FETCHA 


3,RQBLK 
TCWCA, TCD 
WRMEM 


WR1OO 
WRMEM 


8,RQBLK 
TYWRIT 


TYREAD « 40) 


SET WRITE ACTIVE 


CHECK FOR LINE ERRORS ON RETURN FROM 


FORMS CONTROL CHR OUTPUT 


TCD, TCWCA, TCHCAB, TCHCAZ 


WRMEM 

8 

6,RQBLK 
RAO+1 ,WRIOG6 
RA1+8,WRIO6, 
TCSFWR 
WRQSTA 
RFCB,.B 
BCRECL ,0CB 


0.8 
WRFMCC 


WRBLEN 
RA1+0,WRIOY 


WRIO3+1 


GET DETAIL STATUS 
DATA-SET-READY OFF 


BREAK 
GET WRITE RQST ADOR 
SAVE RQST ADDR 


GET BUFFER LENGTH 
GET BUFFER ADDR, BYTE/WORD FLAG 


SET 1ST CHR IN BUFFER TO BLANK CHR 


SAVE FORMS CONTROL CHAR. 


SAVE IN CCM ROQBLK 
CALCULATE NUMBER OF TRAILING BLANKS 


COUNT IN BYTES 


CONVERT TO WORD COUNT(UP ROUNDED) 
SAVE WORD COUNT 


IF ODD, CHECK STARTS AT LHW 


2 


CHECK RHW FOR BLANK 


NON-BLANK 


CHECK FOR ALL BLANKS IN BUFFER 
YES 
CHECK LHW FOR BLANK 


NON-BLANK 


PAGE 


16 


VTAM 


001726 
001727 
001730 
001731 


001732 
001733 
001734 
001735 


001736 


001737 
001740 
oo1741 
oo174e 
001743 
OO1744 
001745 
001746 
001747 
001750 
001751 
001752 
001753 
001754 
001755 


001756 


001757 
001760 
001761 
001762 
001763 


001764 
001765 
001766 
001767 
001770 
001771 
001772 
001773 
001774 
001775 
001776 
001777 
002000 
002001 
odo02002e 
002003 
002004 
002005 
002006 
002007 
902010 
002011 
ooe0le 
002013 
oo0e014 
oo2015 
02016 
002017 
002020 
o020e1 
ogo0e0ee 
002023 
oo20e4 
0020e5 
002026 
002027 
002030 
002031 


002032 


002033 
002034 
002035 
002036 
002037 
002040 
a02041 
oo204e 
002043 
002044 
002045 


Al 


001010 
001764 
024541 
026002 


000002 
016000 
054534 
016001 
054533 


024527 
ooo00e 
006010 
001756 
056010 
016003 
150463 
006110 
100400 
056003 
014520 
o56011 
014517 
os6012 
065011 
001000 
102466 


024507 
900002 
006010 
002301 
056010 
001000 
101506 


024505 
026002 
016001 
054501 
150460 
005012 
016000 
004350 
006137 
001504 
001010 
002017 
006137 
001504 
134476 
001010 
o020e6 
134473 
134471 
001016 
002017 
010423 
054463 
006010 
002503 
001000 
002032 
O14446 
055011 
006017 
001506 
054034 
001000 
002071 
oositl 
O54446 
006010 
002502 


024433 
000002 
110440 
o5601e 
014440 
O56011 
006010 
002052 
056010 
016003 
150463 
006110 
100400 


Por rr> PrDE 


D> >>> >>> yr rrr DErr 


DP>D>>r 


POP err Deer rer hr DEEP Er Der DE rr Vr VhE hr Urry DE r VE VE VS > ry rr rrr 


ocB 


WR4O 
RQBLK 


WRSOA 


WR50B 


WREO 
ROBLK 


WR5O 


WRQSTA 
RFCB,ROST 


8 

DCRECL ,OCB 
WRBLEN 
OCBUFF ,OCB 
WRBUFF 


2 


WRMEM 
B 
WRYOA 


8,RQBLK 
3,RQBLK 


RHW 
0100400 


3,RQBLK 
WRBLEN 
9,ROBLK 
WRBUFF 
10,RQBLK 
TCWCA, TCD 
WRMEM 


WRMEM 


WR200 


8,RQBLK 
TYWRIT 


WROSTA 
RFCB,B 
OCBUFF ,B 
WRBUFF 
BRIS 
0.8 

8 

TYBLK 
WR50A 
TYBLK 


TYZER 
WR50B 


TYZER 
TYONE 
WRSOA 


FOUR 
CHRCNT 
TYFORM 


WREO 


WRMEM 
TCWCA, TCD 
TYHRIT 


WR1OO 
WRIOOA 


CHRCNT 
TYLFLF 


WRMEM 


8B 

S15 
10,RQBLK 
CHRCNT 
9,RQBLK 
WR70 


8,ROBLK 
3,ROQBLK 


RHW 
0100400 


TYREAD ( 39) PAGE 
MODE = 1 OR NEQ 4 


SAVE RECORD LENGTH (BYTES/WORDS) 
SAVE BUFFER ADDRESS, BYTE/WORD CMT FLAG 


MODE = 4 , TRANSPARENT 
BUILO CCM RQST BLK TO OUTPUT USER BUFFER 


SET UP RETURN ADOR 


SET OP-CODE TO WRITE, IMMEDIATE RETURN 


SET BUFFER LENGTH 
SET BUFFER ADDRESS, BYTE/WORD FLAG 
SET WRITE ACTIVE 


CCM RQST QUEUED, EXIT 


SET UP RETURN COMPLETION ADDRESS 


EXIT 


MODE = 1 , STANDARD 
BUILD CCM RQST TO OUTPUT FORMS CONTROL 


GET BUFFER ADDRESS 


GET 1ST CHR IN BUFFER 


BLANK, NO LF CHAR. 


RESTORE 


ZERO, ONE LF CHAR. 


ONE, FORMS CHR 


SET TCD WRITE ACTIVE 
MOVE RETURN ADDRESS TO WRIOO 


OUTPUT USER BUFFER 
ONE LINE FEED CHAR. 


SET TO BYTE COUNT 
SET BUFFER ADDR OF FORMS CONTROL CHR 


SET BUFFER LENGTH 
SET UP RETURN ADDRESS 


SET OP-CODE TO WRITE, IMMEDIATE RETURN 


03 
03 


03 


00874 


00875 
00876 


00877 
00878 
00879 
00880 
00881 
oosse 
ooss3 
ooss4 
00885 
00886 


00887 
oo0sss 
0088s 


00890 
00891 
ooss2 
00893 


00894 
00895 
00896 
00897 
00898 
00899 
003900 


00901 
00902 
00903 
00904 


00905 
00906 


00907 
00908 
00909 
00910 
oogi1 
oogie 
00913 
oosi4 
00915 
00916 
00917 
00918 
00919 


00920 
oose21 


oogee 
ooge3 


ooge4 


03 00925 
INVALIO FORMS CNTRL CHAR, BLANK DEFAULT CHRO3 


00926 


ooge7 
ooge8 
00929 


00930 


00931 
00932 
00933 


00934 
00935 


00936 
00937 
00938 


00939 
00940 
00941 
oos4e 
00s43 
o0s44 
00945, 


00946 
00947 
00948 
00949 


VTAM AL 


002046 
002047 
002050 
002051 
002052 
002053 
002054 
002055 
002056 
002057 


002060 


002061 
002062 
002063 


002064 
002065 
002066 
002067 
002070 
002071 
ooe207e 
002073 
002074 
002075 


002076 
002077 
002100 
02101 
002102 
002103 
002104 
002105 
002106 
002107 
002110 
002111 
002112 
002113 
002114 


002115 


002116 
002117 
002120 
o0ele) 

002122 
002123 
002124 
002125 
002126 
002127 
002130 
002131 

002132 
002133 
002134 
002135 
002136 
002137 
002140 
oo2141 

02142 
002143 
002144 
002145 
002146 
002147 
002150 
002151 

002152 
002153 
002154 
002155 
002156 
002157 
002160 
002161 

002162 
002163 
002164 
002165 
002166 
002167 


002170 
002171 


056003 
065011 
001000 
102466 
006010 
002060 
Oe4411 
056010 
001000 
101506 


000000 


015011 
054403 
005012 
000002 
016006 
OO6441 
002255 
006410 
002255 
002000 
001510 
054376 
005012 
026002 
000002 
016000 
054370 
016001 
054367 
150460 
005012 
016000 
054367 
150463 
006110 
120000 
056000 
014362 
024352 
056014 


005001 


054360 
014351 
001004 
002125 
014345, 
001000 
o0e214e 
014342 
054347 
005111 
004341 
054342 
124336 
005012 
005322 
014332 
006400 
002165 
001000 
002152 
054331 
005012 
oo4e4t 
054330 
005021 
124321 
005012 
005322 
016000 
150463 
006137 
001504 
001016 
oo2e02 
O44316 
O14314 
144314 
001010 
002202 
016000 
004350 
006137 


001504 
001016 


DP>>O Dy Dy >> 


PD HPP DH Hr Kr VE VKH H yy rr rere rr VE DEES Eyre rrr UES ry D> >> S SHPO HOO ESSE EEE EEE EEM>DE VE > rryr > 


WR70 


WR100 


RQBLK 


WRIOOA 


oce 


WRIOL 


WR102 


WR1O3 


WRIOW 


STA 
sTB 
JMP® 
LDAI 
LOB 


STA 
UMP * 


EvEC 


SPACE 


ENTR 
FETCHA 


3,ROQBLK 
TCHCA, TCD 
WRMEM 


WR100 
WRMEM 


8,RQBLK 
TYWRIT 


TYREAD € 40) 


SET WRITE ACTIVE 


CHECK FOR LINE ERRORS ON RETURN FROM 


FORMS CONTROL CHR OUTPUT 


TCD, TCWCA, TCHCAB, TCWCAZ 


WRMEM 

6 .ROBLK 
RAO+1 ,WRIOG 
RA1+8,WRIO6 
TCSFWR 
WROSTA 
RFCB,.B 
BeRECL DCB 


WRBLEN 
RA1+0,WRIOW 


WRIO3+1 
WDCNT 


GET DETAIL STATUS 
DATA-SET-READY OFF 


BREAK 
GET WRITE RQST ADDR 
SAVE RQST ADOR 


GET BUFFER LENGTH 
GET BUFFER ADOR, BYTE/WORD FLAG 


SET 1ST CHR IN BUFFER TO BLANK CHR 


SAVE FORMS CONTROL CHAR, 


SAVE IN CCM ROBLK 
CALCULATE NUMBER OF TRAILING BLANKS 


COUNT IN BYTES 


CONVERT TO WORD COUNT(UP ROUNDED) 
SAVE WORD COUNT 


IF ODD, CHECK STARTS AT LHW 


CHECK RHW FOR BLANK 


NON~BLANK 


CHECK FOR ALL BLANKS IN BUFFER 
YES 
CHECK LHW FOR BLANK 


NON-BLANK 


PAGE 


VTAM AL TYREAD { 4t) PAGE 17 


002172 002202 R 
002173 044303 A 2314 INR BLKCNT INCREMENT BLANK COUNTER 03 01027 
002174 014301 A 2315 LOA CHRCNT CHECK FOR ALL BLANKS IN BUFFER 03 01028 
002175 144301 A 2316 SuB BLKCNT 03 01029 
002176 001010 A 2317 JAZ WRIOS YES 03 01030 
002177 O02202 R 
002200 001000 A 2318 MP WR1O3 CONTINUE SCAN 03 01031 
002201 002151 R 
e319 ¢ 03 01032 
2320 ¢ WE NOW HAVE COUNT OF TRAILING BLANKS. 03 01033 
2321 * SET NUMBER OF WOROS/CHRS TO OUTPUT. 03 01034 
002202 014266 A 2322 WRIOS LDA WRBUFF 03 01035 
002203 001004 A 2323 JAN WRIOSA BYTE COUNT 03 01036 
002204 002230 R 
002205 014271 A 2324 LDA BLKCNT WORD COUNT 03 01037 
002206 004341 A 2325 LSRA 1 DIV BY 2 03 01038 
002207 054267 A 2326 STA BLKCNT 03 01039 
002210 014263 A 2327 LOA WOCNT 03 01040 
002211 144265 A 2328 Su BLKCNT (A) = NO, OF WORDS TO OUTPUT 03 01041 
2329 + TRUNCATE TO 36 WOS IF GTR 36 03 01042 


2330 SUBI 37 03 01043 
2331 JAN WRIOSX 03 01044 


O02e212 006140 
002213 000045 
002214 001004 
002215 002222 
002216 006010 
002217 000044 
002220 001000 
002221 002246 
002222 006120 
902223 000045 
002224 001010 
002225 O02e64 
002226 001000 
002227 002246 
002230 014245 
002231 144245 


002232 006140 
002233 000111 
002234 001004 


002235 002242 
002236 006010 
002237 000110 
002240 001000 
002241 002246 
002242 006120 
002243 000111 
002244 001010 
002245 002264 


2332 LDAI 36 TRUNCATE 03 01045 
2333 JMP- WR1O05B8 03 01046 
2334 WRIO5X ADDI 37 03 01047 
2335 JAZ WR107 03 01048 
2336 JMP WRIO5B 03 01049 
2337 WRIOSA LDA CHRCNT 03 01050 
2338 SUB BLKCNT 03 01051 
2339 ° TRUNCATE TO 72 CHRS IF GTR 72 03 01052 
2340 SUBI 73 03 01053 


e341 JAN WRIOSY 03 01054 


2342 LOAI Te TRUNCATE 03 01055 
2343 JMP WR1058 03 01056 
2344 WRIOSY ADDI 73 RESTORE 03 01057 
2345 JAZ WR107 03 01058 


DP>Per rere err D> DSH rr De DH VHS DH > Dy yr Deer D Perr PPO DE Dey rvyS ry rvyrr 
uy 
a 
ae 
a 


002246 054ee1 WRIO5B STA WRBLEN SAVE NEW BUFFER LENGTH 03 01059 
002247 006017 A 2347 LDAE WRIOO MOVE RETURN ADDRESS TO TYWRIT 03 01060 
002250 002060 
002251 006057 A 2348 STAE TYWRIT WILL EXIT VIA TYWRIT 03 01061 
G02e52 001506 
002253 001000 A 2349 UMP WRYO OUTPUT USER BUFFER 03 01062 
002254 001736 
2350 * 03 01063 
002255 006017 A 2351 WRIO6 LDAE WR100 03 01064 
002256 002060 
002257 054101 A 2352 STA WR300 03 01065 
002260 005001 A 2353 TZA 03 01066 
002261 054206 A 2354 STA WRBLEN 03 01067 
002262 001000 A 2355 IMP WR300+1 03 01068 
002263 002362 
2356 * 03 01069 
002264 006017 A 2357 WRIO7 LOAE WRIOO 03 01070 
002265 002060 
002266 054012 A 2358 STA WR200 03 O1071 
002267 024176 A 2359 LoB WRMEM 03 01072 
002270 005001 A 2360 TZA 03 01073 
002271 056005 2361 STA 5,8 03 01074 
002272 016003 A 2362 LDA 3 03 01075 
002273 150463 A 2363 ANA RHW 03 01076 
002274 006110 2364 ORAL 0100400 SET OP-CODE TO WRITE, IMMEDIATE 03 01077 
002275 100400 
002276 056003 A 2365 STA 3,8 03 01078 
002277 001000 A 2366 UMP WR200+1 03 01079 
062300 002302 
2367 * 03 01080 
2368 EJEC 03 01081 
2369 * 03 01082 
2370 * ON ENTRY AT THIS POINT, THE USER BUFFER HAS BEEN OUTFUT. 03 01083 
esti « LINE ERRORS ARE CHECKED FOR ANO HANDLED APPROPIATELY. 03 01084 
e372 * IF MODE IS 4, THE REQUEST IS COMPLETE. OTHERWISE, IF MODEO3 01085 
2373 ¢ 1S 1, A CCM REQUEST TO OUTPUT CR/NULL/LF CHARACTERS 1S 03 01086 
2374 * MADE THEN TCM WRITE REQUEST IS COMPLETED. 03 01087 
2375 * 03 01088 
002301 000000 A 2376 WR200 ENTR 03 01089 
2377 FETCHA TCD, TCWMD, TCWMDB, TCHMOZ 03 01090 
002302 015006 A 
002303 004343 A 
002304 150467 A 
002305 001010 A 2378 JAZ WR2O0A MODE = 1 , OUTPUT CR/NULL/LF 03 01091 
002306 002314 R 
002307 006017 A 2379 LDAE WR200 MOVE RETURN ADDRESS TO WR300 03 01092 
002310 002301 R 
002311 054047 A 2380 STA WR300 03 01093 


VTAM AL 


002312 
002313 


002314 
002315 


002316 
002317 
002320 
002321 

002322 
002323 
002324 
002325 
002326 
002327 
002330 
002331 

002332 
002333 
002334 


002335 
002336 
002337 
002340 
002341 
002342 
002343 
002344 
002345 


002346 
002347 
002350 
002351 
002352 
002353 


002354 
002355 
002356 
002357 
002360 


002361 


002362 
002363 
002364 
002365 
002366 


002367 
002370 
002371 
002372 
002373 
002374 
002375 
002376 
002377 
002400 
002401 
ooe40e 
002403 
002404 
002405 
002406 
002407 
002410 
ooe4It 
woe4i2 
002413 
ooe414 


002415 
002416 
002417 


ooe420 
o0e4et 


ooe422 
002423 
o024e4 
o0e4e5 
002426 


002427 


001000 
002362 


015011 
o0s0ie 
000002 
054147 
016006 
006441 
002354 
006410 
002354 
010464 
056011 
006010 
002505 
110440 
os6012 
006010 
002346 
056010 


016005 
054131 
002000 
002072 
005012 
014125 
056000 
001000 
102466 


024117 
006010 
002361 
056010 
001000 
102301 


006017 
002301 
054002 
001000 
002362 


cooo00 


015011 
054102 
002000 
002340 
054103 


015006 
004343 
150467 
001016 
002415 
024071 
016014 
150462 
054075 
024071 
026002 
016001 
150460 
ooso12 
016000 
150463 
114065 
056000 
024060 
016000 
001000 
002417 
ooo002 
024050 
016005 
054050 


015002 
005012 


014045 
056013 
o2404r 
016006 
024043 


100444 


DE>DH DES Dr> DHSr Kremer > SVE Srr Derr DE DS rr rrr 


PPP rr SH SHE EDE SESS > PrP rr rrr rr D> >hh> SMP>>>y > 


> 


. 
. 
* 


WR2O0A 


ROQBLK 


R300 


RQBLK 
WR300A 


JMP 


FETCHA 


TAB 
SET 
STA 
LDA 
BT 


BT 


ENTR 
FETCHA 


STA 
MPM 


STA 
FETCHA 


TYREAD € 42) 
WR300+1 COMPLETE TCM WRITE REQUEST 


OUTPUT CR/NULL/LF CHARACTERS 
TCD, TCWCA, TCWCAB, TCHCAZ 


B 

WRMEM SAVE CCM ROBLK ADDRESS 
6,RQBLK CHECK FOR LINE ERRORS 
RAO+1,WR201 DATA-SET-READY OFF 


RAI+8,WR201 BREAK 


THREE NO LINE ERRORS, SET BUFFER LENGTH 
9,RQBLK 
TYCNL SET BUFFER ADDRESS, BYTE COUNT 


Bs15 
10,RQBLK 
WR200B SET UP RETURN ADDRESS 


8,RQBLK 


5,RQBLK 
WRBLEN SAVE NO OF WOS/BYTES TRANSFERED ~ 
TCSFWR 


WRBLEN 
RSTPR,B 
WRMEM 


CCM RQST QUEVED 
WRMEM SET RQST COMPLETION ADDRESS 
WR300 
8,RQBLK 
WR20O RETURN 
WR200 


WR300 
WR300+1 


PAGE 


TCM REQUEST COMPLETED,RETURN STATUS, AND MEMORY FOR CCM 


REQUEST BLOCK 


TCD, TCWCA, TCWCAB, TCHCAZ 


WRMEM 
TCSFWR 


WROSTA SAVE RQST ADORESS 
TCD, TCWMD , TCWMDB , TCWMDZ 


WR300A 
WRMEM GET FORMS CHAR. 


SAVE 
WROSTA GET BUFFER ADOR. 


0.8 RESTORE 1ST CHAR. IN USER BUFFER 
RHW 


WR300A+2 

B 

WRMEM 

5,RQBLK 

WRBLEN 

TCD, TCCTA, TCCTAB, TCCTAZ 


(B) = TCM CTBL ADDRESS 


VTAM AL TYREAD (43) PAGE 19 


002430 100747 A 
002431 002000 A 2456 JMPM TCSCRQ COMPLETE REQUEST 03 01169 
002432 OOIS61 E 
2457 EINTS 03 01170 
002433 100244 A 
002434 100147 A 
002435 024030 A 2458 WR300B LOB WRMEM RETURN MEMORY FOR CCM RQST BLOCK 03 O1171 
002436 006010 A e459 LOAI le 03 01172 
002437 000014 A 
002440 056000 A 2460 STA 0.8 SET SIZE OF CCM RQST BLK 03 O1173 
2461 PUTMEM VTSMPI,WRMEM OEALLOCATE MEMORY, CLEAR ROBLK ADDR IN TCD 03 01174 
o0244! OO6010 A 
002442 001517 E 
002443 006027 A 
002444 002466 R 
002445 074005 A 
002446 006505 A 
002447 001522 E 
002450 000600 A 
00245! 001437 E 
002452 006030 A 
002453 002452 R 
002454 005001 A 2462 TZA 03 01175 
2463 SETA TCD, TCHCA, TCHCAB, TCHCAZ 03 01176 
002455 055011 A 
002456 001000 A 2464 JMP* WR300 EXIT 03 01177 
002457 102361 R 
2465 * 03 01178 
002460 006017 A 2466 WR3O00C LDAE TYWRIT 03 01179 
002461 001506 R 
002462 006057 A 2467 STAE WR300 03 01180 
002463 002361 R 
002464 001000 A 2468 JMP WR300B 03 01181 
002465 002435 R 
2469 EvEC 03 01182 
2470 © 03 01183 
e471 © CONSTANTS AND TEMPORARY STORAGE 03 01164 
e472 * 03 01185 
002466 000000 A 2473 WRMEM Q ADDR OF CCM ROBLK 03 01186 
002467 000000 A 2474 WRMODE to) MODE OF TCM RQST 03 01187 
002470 000000 A 2475 WRBLEN i) BUFFER LENGTH (WOS/BYTES) 03 01188 
002471 000000 A 2476 WRBUFF 0 BUFFER ADDRESS, BYTE COUNT FLAG 03 01189 
002472 000000 A 2477 WROSTA te) TCM WRITE RQST ADDR 03 01190 
002473 000000 A 2478 WRICD i) TCD ADDRESS 03 O1191 
002474 000000 A 2479 WOCNT oO WORD COUNT 03 O1192 
002475 000000 A 2480 WRFMCC QO SAVE CELL FOR FORMS CHAR. 03 01193 
002476 000000 A 2481 CHRCNT 0 CHAR COUNT 03 01194 
002477 000000 A 2482 BLKCNT oO BLANK COUNT 03 01195 
002500 000261 A 2483 TYONE 0261 ONE 03 01196 
002501 000260 A 2484 TYZER 0260 ZERO 03 01197 
002502 105212 A 2485 TYLFLF 0105212 LINE FEED, LINE FEED é 03 01198 
002503 106200 A 2486 TYFORM 0106200 FORM, NUL 03 01199 
002504 100200 A 2487 0100200 NUL , NUL 03 01200 
002505 106600 A 2488 TYCNL 0106600 CARRIAGE RETURN,NULL ,LF 03 01201 
002506 105000 A 2489 TYLF 0105000 LINE FEEO 03 o1202 


PROGRAM NAME - 


2494 #* TYFUNC - PROCESSES FUNC/WEOF REQUESTS FOR TTY TCM 01208 
2495 ** 01209 
2496 ** ENTRY CONDITIONS ~ 01210 
2497 ** (0) = TCD ADDRESS o12it 
249g +* olel2 
e499 se EXIT CONDITIONS - o1213 
2500 ** (A) AND (B) DESTROYED 01214 
2501 +* ©) UNCHANGED 01215 
2502 ** 01216 
2503 ** CALLING SEQUENCE - 01217 


JMPM TYFUNC 
(RETURN) 


eee 


2509 ExT VSEXEC 01223 
2510 ExT VTSGTM 01224 
e511 ExT VTSPTM 01225 
esie ExT VTSMP1 01226 
2513 NAME TYFUNC 01227 
002507 000000 A 2514 TYFUNC ENTR o1228 
000001 A 2515 TCD SET x (x) = TCD ADDRESS o12e9 
002510 025001 A 2516 LOB TCRQH,X GET RQST ADDR FROM TOP OF TCD ROST QUEUE 01230 
000002 A 2517 RQST SET 01231 
2518 FETCHA TCO,TCSWL,TCSWLB, TCSWLZ 01232 
002511 015004 A 
002512 004350 A 
002513 150421 A 
002514 001010 A 2519 JAZ FCO! DIRECT CONNECT 03 01233 
002515 002664 R 
2520 FETCHA TCD,TCCON,TCCONB, TCCONZ 03 01234 
002516 015004 A 
002517 004355 A 
002520 150421 A 
002521 001010 A 25e1 JAZ FCO NO PHYSICAL CONNECTION 03 01235 
o02522 002541 R 


2522 FETCHA TCD,TCLOF,TCLOFB,TCLOFZ 03 01236 


VTAM Al 


002523 


002524 
002525 
002526 
002527 
002530 


002531 
002532 
002533 
002534 


002535 
002536 
002537 
002540 


002541 
002542 
002543 
02544 
002545 
002546 
002547 
002550 
002551 
002552 
002553 
o0es54 
002555 
002556 
002557 


002560 
002561 
002562 
002563 
002564 
002565 
002566 
002567 
002570 
002571 


002572 
002573 
002574 
002575 
002576 
002577 
002600 
002601 


002602 
002603 
002604 
002605 
002606 
002607 
002610 
o0e611 
002612 
002613 
002614 
002615 
002616 
002617 
002620 
002621 


002622 
002623 
002624 
002625 
002626 
002627 


002630 
002631 
002632 
002633 
002634 


002635 
002636 
002637 


002640 
002641 
02642 
002643 
002644 
002645 
002646 
002647 


002650 
002651 


015006 


004354 
150421 
001010 
002664 
005101 


100444 
100747 
002000 
002432 


100244 
100147 
001000 
102507 


006010 
000015 
006020 
ooe44e 
074005 
006505 
002447 
000600 
001524 
006030 
002552 
001010 
003157 
OS4411 
005012 
000002 
002000 
001534 
006010 
002575 
056010 
010465, 
004250 
116003 
150460 
056003 


074401 
001000 
103170 
024372 
034375 
016006 
006401 
002634 


016003 
110440 
056003 
016013 
150463 
006110 
001400 
056013 
010422 
056014 
006010 
002622 
056010 
065007 
001000 
103170 


024345 
006010 
002630 
056010 
001000 
102507 


015007 
054336 
005001 
055007 
005101 


004255 
135004 
004355 


150421 
004255 
135004 
055004 
006010 
000015 
024321 
056000 


006010 
002544 


>D>rr > 


Me Peer rrr>y SPH SOP E > DEO DE > DEP EVES rer yreyr rrr yr > Derr Dr > SP r>r rr USMS >r rr D> DESMPMreMyrr DE Sr MPrr 


2523 
e524 
2525 
2526 
2527 


2528 
2529 


2574 


e575 
2576 
e577 


FCO 


ROQBLK 


FCOA 


FCOD 


JAZ 
INCR 
DINTS 
JMPM 
EINTS 


JMP* 
GETMEM 


LDAI 


LoB 
STA 
PUTMEM 


TYREAD c 44) 


FCcoL CONNECTED 


ol LINE DISC., SIMULATE DSR OFF, COMP. 


TCS$CRQ 


TYFUNC 
VTSMP1,13 


FCEXIT 
FUMEM 


TCS$BRQ BUILD CCM RQST 
FCOA SET UP RETURN ADDRESS 


FIVE SET OP-CODE TO FUNCTION 
8 
BRIS USE WAIT OPTION 


FUTCD SAVE X REG. 


6,RQBLK 
RA1+1,FCOO ON 
OFF, SENSE DATA-SET-READY ON EVENT 


3,RQBLK IMMEDIATE RETURN 
BS15 

3,RQBLK 

11,RQ8LK FUNC CODE = 3 

RHW 

01400 

11,RQBLK 

BS1 MASK FOR DSR ON 
12,RQBLK STORE IN LCB EXT WORD 
FCOB SET UP RETURN 


8,RQBLK 
TCRCA, TCO SET FUNC ACTIVE 
‘UMEM 


CCM RQST QUEVED 


TYFUNC RETURN 
ON RETURN, DSR 1S ON 
TCRCA, TCD 
FUMEM 
TCRCA, TCD 
o1 
TCD, TCCON, TCCONB, TCCONZ 


13 RETURN MEM USED FOR CCM RQST. 


FUMEM 
0.8 
VTSMP 1. FUMEM 


PAGE 


Rast. 


20 


01237 


03 
03 


01239 


o1e40 
01241 


o1242 
01243 


VTAM AI 


002652 
002653 
002654 
002655 
002656 
002657 
002660 
002661 
002662 
002663 


oo2664 
002665 
002666 
002667 
002670 
002671 
002672 


002673 
002674 
002675 
002676 
002677 
002700 
002701 
o0e702e 
002703 
002704 


002705 
002706 
002707 
002710 


00e711 
o0e712 
002713 
002714 
002715 
002716 
002717 
002720 
002721 
002722 
002723 
002724 
002725 
002726 
002727 


002730 
002731 
002732 
002733 
002734 
002735 
002736 
002737 
002740 


002741 
o0e74e 
002743 
002744 
002745 
002746 
002747 
002750 
002751 
002752 
002753 
002754 
002755 


002756 
002757 
002760 
002761 
002762 
002763 


002764 
002765 
002766 
002767 
002770 
002771 
002772 
002773 
002774 


006027 
003170 
074005 
006505 
002547 
000600 
002451 
006030 
002661 
025001 


016001 
004350 
150472 
140422 
001010 
002711 
oe6002 
000002 


016002 
150463 
054273 
006140 
000005 
001002 
003152 
014266 
006120 
003162 


110440 
054260 
001000 
103167 


006010 
000015 
006020 
002651 
074005 
006505 
002656 
000600 
002551 

006030 
002722 
001010 
003157 
054241 

005012 
900002 
002000 
002561 

o104e1 

056011 

014233 
006120 
000014 
110440 
o5601e 


015004 
150463 
004250 
056014 
006010 
002756 
056010 
016003 
110431 
056003 
065007 
001000 
103170 


024211 
006010 
OO3111 
056010 
001000 
102507 


006010 
000015 
006020 
002714 
074005 
006505 
002717 
000600 
002721 


>D>M>m>>rD> 


DP>> DHO DS yr rrr rr UVS>r>>> 


DEY DH HK DHSS rrr Dy > rey SPH rr re Mr >> yr D> DS M>M>rm>>> 


mM>m>>m>>> 


2580 FCO! 


2584 DCB 


. 
2596 FC10 


2600 ROBLK 


2618 FC20 
3 


2622 
2623 * 
2624 FC30 


LOB 
FETCHA 


‘SUB 
JAZ 


LOB 


SET 
FETCHA 


STA 
Sus8i 


JAP 


EJEC 
GETMEM 


EVEC 
GETMEM 


TCRQH , TCD 


RQST,ROPWO,8,4 


TWO 
FC10 


RFCB,RQST 

8 
0CB,OCCNT,0,8 
FUNC 
FUVEN-FUVST 
FC! 

FUNC 

Fuvst 


BS15 
FUPEX 
FUPEX 


VTSMP1 13 


FCEXIT 
FUMEM 


8 
TCS$BRQ 


ONE 
9,RQBLK 
FUMEM 
12 


BSs15 
10,RQBLK 


TYREAD ¢ '45) 


INITIATE FUNC RQST 


WEOF OP CODE, GO TO WEOF PROCESSOR 
FUNC RQST 
GET FUNC CODE FROM OCB 


SAVE 
VALIDATE FUNC CODE 
ERROR, CODE NOT VALID 


CALCULATE ADDRESS IN JUMP VECTOR TBL 


SET INDIRECT BIT 
JUMP TO PARTICULAR PROCESSOR 


PROCESS WEOF RQST 
GET 13 WOS FOR CCM RQST BLK 


NO MEM,D0 NOT PROCESS RQST 


BUILD CCM RQST BLK 
STORE BYTE COUNT, BUFFER ADDRESS 


TCO, TCPCH, TCPCHB, TCPCHZ 


TCRCA, TCD 
FUMEM 


FUMEM 
Fc100 


8,ROBLK 
TYFUNC 


VTSMP1,13 


SET OP-CODE TO WRITE(1) 


SET FUNC ACTIVE 
INITIATE CCM RQST VIA I0C 


PROCESS FUNC CODE = 0 


PAGE 


al 


o1e92 
01293 
o12e94 


01295 
01296 


01297 
o1e98 
1299 


01300 
01301 


01302 


01303 
01304 


01305 
01306 
01307 


01308 
01309 
01310 


VTAM At TYREAD ( 46) PAGE 
002775 006030 A 
002776 002775 R 
002777 001010 A 2625 JAZ FCEXIT 03 01339 
003000 003157 R 
004001 064166 A e626 STA FUMEM 03 01340 
OU 40Ne HOHOLE A 2627 TAB os O1s4t 
OOOO! Ab ROBEK SET 8 0s O14 
0040045 VOCOOD A ebes JMPM TCSBRQ BUILD COM RAST BLK Os O134S 
003004 002731 E 
003005 010464 A 2630 LDA THREE STORE BYTE COUNT, BUFFER ADDRESS O3 O1344 
003006 024161 A e631 LOB FUMEM 03 01345 
003007 056011 A 2632 STA 9,RQBLK 03 01346 
003010 006010 A 2633 LDAI FUCRLF SET UP BUFFER ADDR FOR CR & 3 LF CHRS 03 01347 
003011 003172 R 
003012 110440 A 2634 ORA BS15 BYTE COUNT 03 01348 
003013 056012 A 2635 STA 10, RQBLK 03 01349 
003014 006010 A 2636 LDAT Fceo SET UP RETURN ADDR 03 01350 
003015 002756 R 
003016 056010 A 2637 STA 8,ROBLK 03 01351 
003017 016003 A 2638 LDA 3,ROBLK 03 01352 
003020 110431 A 2639 ORA BS8 SET OP-CODE TO WRITE 03 01353 
003021 056003 A 2640 STA 3,RQBLK 03 01354 
003022 065007 A 2641 sTB TCRCA,TCD SET FUNC ACTIVE 03 01355 
003023 001000 A 2642 JMP* FUMEM INITIATE CCM RQST 03 01356 
003024 103170 R 
2643 EJEC 03 01357 
e644 * PROCESS FUNC CODE = 1,2 03 01358 


2645 FC4O LDA ONE SET NO-ECHO FLAG 03 01359 
2646 JUMP FCSO+1 03 01360 


2647 FC5O = =—TZA RESET NO-ECHO FLAG 03 01361 
2648 SETA TCD, TCECH, TCECHB , TCECHZ 03 01362 


003025 010421 
003026 001000 
003027 003031 
003030 005001 


003031 004254 
003032 135004 
003033 004354 
003034 150421 
003035 004254 
003036 135004 
003037 055004 


003040 006010 
003041 000015 
003042 006020 
003043 002767 
003044 074005 
003045 006505 
003046 002772 
003047 000600 
003050 002774 
003051 006030 
003052 003051 


2649 GETMEM VTSMP1,13 03 01363 


DPPSSr>> > DVS SSP y hy yHSH MPS YO DE DHMSM>S>M>>y> Sh Oeyery PDP>> 
ny 
a 
a 
o 


003053 001010 JAZ FCEXIT 03 01364 
003054 003157 
003055 054112 A 2651 STA FUMEM 03 01365 
003056 005012 A 2652 TAB 03 01366 
000002 A 2653 ROBLK SET 8 03 01367 
003057 002000 A 2654 JMPM TCSBRQ BUILD CCM RQST 03 01368 
003060 003004 
2655 FETCHA TCD, TCECH, TCECHB, TCECHZ 03 01369 
003061 015004 
003062 004354 
003063 150421 
003064 006120 A 2656 ADDI 1 SET FUNC CODE, 11 (ECHO), 12(NO-ECHO) 03 01370 
003065 000013 
003066 004250 A 2657 LRLA 8 03 01371 
003067 116013 A 2658 ORA 11,RQBLK 03 01372 
003070 056013 A 2659 STA 11,RQBLK 03 01373 
003071 006010 A 2660 LDAI Fceo SET UP RETURN ADDR 03 01374 
003072 002756 
003073 056010 A 2661 STA 8,RQBLK 03 01375 
003074 010465 A 2662 LOA FIVE SET OP-CODE TO FUNCTION 03 01376 
003075 004250 A 2663 LRLA 8 03 01377 
003076 116003 A 2664 ORA 3,RQBLK 03 01378 
003077 056003 A 2665 STA 3,RQBLK 03 01379 
003100 065007 A 2666 sTB TCRCA,TCD SET FUNC ACTIVE 03 01380 
003101 001000 A 2667 JMP*® FUMEM 03 01361 
003102 103170 
2668 EVEC 03 01382 
2663 * PROCESS FUNC CODE = 3 03 01383 
003103 016002 A 2670 FC60 LDA DCCNT OCB SET READ TIMEOUT VALUE IN TCD 03 01384 
003104 004350 A 2671 LSRA 8 03 01385 
e672 SETA TCD, TCSTO, TCSTOB, TCSTOZ 03 01386 
003105 055010 A 
003106 010422 A 2673 LDA BS! RETURN WITH DATA-SET-READY ON. 03 01387 
003107 001000 A 2674 IMP FC100A COMPLETE REQUEST 03 01388 
003110 003115 R 
2675 EVEC 03 01389 
2676 * 03 01390 
2677 © ON RETURN FROM CCM RQST COMPLETION, LINE 03 01391 
2678 * ERRORS ARE CHECKED FOR BY TCSCRQ . 03 01392 
2679 * TCSCRQ 1S CALLED TO COMPLETE RQST. AFTER 03 01393 
2680 .* THE RQST IS COMPLETED, MEMORY USED FOR 03 01394 
2681 * CCM RQST IS DEALLOCATED 03 01395 
2682 * 03 01396 
003111 000000 A 2683 FC100 ENTR 03 01397 


22 


VTAM AL TYREAD (47) PAGE 
003112 025007 A 2684 LOB TCRCA,TCD (B) = CCM RQST BLK ADDR 03 01398 
003113 064054 A 2685 sTB FUMEM 03 01399 
000002 A 2686 ROBLK SET 8 03 01400 
003114 016006 A 2687 LDA 6. RQBLK GET DETAIL STATUS IN A REG. 03 01401 
003115 025001 A e688 FCIOOA LOB TCRQH, TCD 03 01402 
2689 ExT TC$CRQ 03 01403 
2690 DINTS 03 01404 
003116 100444 A 
003117 100747 A 
003120 002000 A 2691 JMPM TCSCRQ COMPLETE RQST 03 01405 
003121 002534 E 
2692 EINTS 03 01406 
003122 100244 A 
003123 100147 A 
003124 015007 A 2693 LDA TCRCA, TCD 03 01407 
003125 001010 A 2694 JAZ* TYFUNC RETURN FOR FUNC CODE = 3 TO TCMEXEC 03 01408 
003126 102507 R 
003127 005012 A e695 TAB 03 01409 
003130 006010 A 2696 LDAL 13 03 01410 
003131 000015 A 
003132 056000 A 2697 STA 0.8 03 O1411 
2698 PUTMEM VTSMP1,FUMEM DEALLOCATE MEMORY FOR CCM RQST BLK 03 o1Mle 
003133 006010 A 
003134 003043 E 
003135 006027 A 
003136 003170 R 
003137 074005 A 
003140 006505 A 
003141 003046 E 
003142 000600 A 
003143 002660 E 
003144 006030 A 
003145 003144 R 
003146 005001 A 2699 TZA 03 01413 
003147 055007 A 2700 STA TCRCA, TCO 03 01414 
003150 001000 A 2701 JMP* FC100 RETURN TO TCMEXEC 03 O1Mis 
003151 103111 R 
2702 * INVALID FUNC CODE ERROR 03 01416 
003152 006010 A 2703 FC81_ LDAI 075 03 01417 
003153 000075 A 
003154 004245 A 2704 LRLA 5 SET ERROR CODE 03,ERR FLG, COMP. CODE 05 03 01418 
003155 001000 A 2705 JMP FCLOOA 03 01419 
003156 003115 R 
003157 010461 A 2706 FCEXIT LDA NEG SET NO MEMORY FLAG 03 01420 
003160 001000 A 2707 JMP* TYFUNC EXIT TO TCMEXEC 03 O14e1 
003161 102507 R 
2708 EVEC 03 o142e 
2709 * CONSTANTS AND TEMPORARY STORAGE 03 01423 
003162 2710 FUVST BSS Oo JUMP VECTOR TABLE 03 01424 
003162 002764 R 2711 DATA FC30 tt) 03 01425 
003163 003025 R e712 DATA FC4O 1 03 01426 
003164 003030 R 2713 DATA FCSO e 03 01427 
003165 003103 R e714 DATA FC60 3 03 014e8 
003166 000000 A e715 DATA to) 4(1/0 CLEAR, IMMEDIATE, DONE IN VT$TCQ) 03 o14e9 
003167 2716 FUVEN 8SS tt) MUST BE LAST ENTRY IN JUMP VECTOR TABLE 03 01430 
003167 000000 A 2717 FUPEX DATA 0 03 01431 
003170 000000 A 2718 FUMEM DATA tt) 03 01432 
003171 000000 A 2719 FUNC DATA oO 03 01433 
003172 106612 A 2720 FUCRLF DATA 0106612 CR,LF (CARRIAGE RETURN,3 LINE FEED BUFFER)03 01434 
003173 105212 A 2721 DATA 0105212 LF LF 03 01435 
003174 000000 A 2722 FUTCD DATA ti) TCD ADDRESS 03 01436 
2723 END 03 01437 


ENTRY NAMES 


002507 R TYFUNC 000121 R TYREAD 001506 R TYWRIT 

EXTERNAL NAMES 

003060 E TCSBRQ 003121 E TCS$CRQ 001355 E TCSFRR 002365 E TCSFWR 
003141 E VSEXEC 003050 E VTSGTM 003134 E VTSMPI 003143 E VTSPTM 
SYMBOLS 

000044 A APIM 000002 AB 000000 A BO 000001 A BI 
000012 A BIO 000013 A Bil 000014 A Ble 000015 A BIZ 
000016 A B14 000017 A BIS 000002 A Be 000003 A B3 
000004 A BY 000005 A BS 000006 A BE 000007 A B7 
000010 A 88 000011 A BS 000000 A BICNUM 000077 R BKBF! 
000106 R BKBFe 000115 R BKBF3 002477 R BLKCNT 00042! A BMI 
000472 A BM17 000475 A BM177 000477 A BM1777 OOO4GY A BM3 
000473 A BM37 000463 A BM377 000467 A BM7 000474 A BM77 
000476 A BM777 000441 A BRO ooo44e A BRI 000453 A BRIO 
000454 A BRII 000455 A BRI2 000456 A BRIZ3 000457 A BRIY 
G00460 A BRIS 000443 A BRE 000444 A BRS 000445 A BRY 
GO0446 A BRS 000447 A BRE 000450 A BR7 00045! A BRB 
000452 A BRO oo00421 A BSO o00422 A BSI 000433 A BS10 
000434 A BSI1 000435 A BSI2 000436 A BS13 000437 A BSI4 
000440 A BSI5 000423 A BSe 000424 A BS3 o00425 A BSY 
000426 A 8S5 000427 A BS6 000430 A BS7 000431 A BSB 
000432 A 8S9 000030 R CCI 002476 R CHRCNT 000047 A CLOCK 
000000 A COTAD! 900000 A CTACT 000017 A CTACTB OOOOO! A CTACTZ 
000001 A CTADN 000000 A CTADNB 000020 A CTADNZ 000011 A CTBIC 
000000 A CTBICB 000020 A CTBICZ 000003 A CTOST 000000 A CTDSTB 
000020 A CTOSTZ 000006 A CTDVA 000000 A CTDVAB 000020 A CTDVAZ 
000012 A CTFCB 000000 A CTFCBB 000020 A CTFCBZ 000014 A CTFRC 
000010 A CTFRCB 000010 A CTFRCZ 000014 A CTFRE 000000 A CTFREB 
000010 A CTFREZ 000000 A CTIDB 000000 A CTIDBB 000017 A CTIDBZ 
000007 A CTIOA 000000 A CTIOAB 000020 A CTIOAZ 000002 A CTOPM 
000000 A CTOPMB 000020 A CTOPMZ 000005 A CTRCN 000000 A CTRCNB 
000010 A CTRCNZ 000004 A CTROB 000000 A CTRQBB 000020 A CTROBZ 
000005 A CTRTR 000010 A CTRTRB 000010 A CTRTRZ OOOOIO A CTSTA 


23 


VTAM AL 


oo0000 
000020 
000000 
000024 
000000 
000020 
000023 
000000 
000020 
000015 
000000 
oo0000 
000000 
000645 
002575 
002711 
002764 
003152 
003172 
003174 
000300 
000003 
oooo14 
ooo0o1 
000006 
000016 
ooooo! 
000006 
000010 
000017 
ooo000 
000010 
000010 
000050 


000007 
oo0000 
000001 
000007 
000017 
000001 
000001 
000014 
000010 
000010 
oo001e 
000017 
o000e0 
ooo014 
000016 
000006 
000016 
000000 
000020 
ooo001 
000000 
oo0020 
000016 
000000 
000020 
000016 
000000 
000002 
000020 
000000 
000145 
000461 
000011 
000010 
000001 
000010 
ooo004 
ooooo1 
000010 
ooo00e 
000043 
oooo4o 


000001 
oo0002e 
000010 
000003 
000010 
ooo0o1 
oocco4 
ooo000 
000016 
000014 
000010 
000001 
000003 
oooc00 
000010 
000060 
000534 
000c53 
000654 
000733 
001130 


DODDVF SSP Sy ey> rrr ry rye SHEE E EEE EEE > EE ESE > EEE EEE EEE EE EE EEE > EEE EEE > D> PEEP E SEE E SOO Er UDIVUDE > dS rrr reer rrr 


CTSTAB 
CTWOSZ 
DCRECL 
OMCHA 
OMFPAB 
DMLCAZ 
DMPTA 
OMRPAB 
OMSTAZ 
OMTPA 
DSDASS 
OSNORQ 
DSUNAM 
ENAMP 
FCOA 


PSABNZ 
PSBADT 
PSCCIZ 
PSCRC 
PSDEFB 
PSOSFZ 
PSEND 
PSLSP 
PSMODB 


RD200X 
RD2018 


oo00020 
000002 
000747 
000000 
ao00e0 
000022 
000000 
000020 
000025 
oo0000 
000000 
oo0002e 
000002 
000244 
002622 
003111 
003025 
003157 
003170 
003167 
000003 
oo001e 
000003 
000006 
000013 
000001 
000006 
000017 
000001 
000000 
ooo000 
000010 
000003 
000006 


000017 
000017 
000004 
000000 
000001 
000462 
000017 
000013 
000010 
000017 
000000 
000001 
000016 
000000 
ooo00e 
000014 
000000 
000020 
000016 
000000 
000020 
000011 
000017 
000020 
000007 
000013 
000020 
000017 
000000 
000010 
000245 
000470 
000001 
ooo002 
ooo014 
000010 
000001 
000010 
000004 
000040 
000040 
000200 


ooocco 
ococc0 
000001 
00012 
000001 
000002 
000002 
000000 
000002 
000002 
00000! 
000000 
000016 
000010 
000040 
000020 
000646 
000262 
001036 
000773 
001133 


DVDVDVFS SHY yyy yyy yr yr rrr yr HHO EEE EEE EEE EEE EES EEE >> EEE E> EE EE> EE E> >>> E> PEPE ESE EEE EEOOVUUVVVE DSS > error rere 


RD201C 


000013 
000001 
000745 
000020 
00002! 
000000 
000020 
000020 
000000 
000020 
oo000e 
oo000e 
000424 
002541 
002630 
003115 
003030 
000465 
003171 
003162 
000013 
ooo0o! 
000006 
000015 
ooooo1 
000006 
000011 
000001 
000001 
000017 
000014 
000002 
000000 
000000 


000001 
000004 
000000 
ooo004 
000000 
000017 
000011 
000001 
00015 
ooo01e 
000020 
000013 
000016 
000011 
900020 
oo0014 
000010 
000003 
000010 
000020 
000005 
000000 
000001 
000006 
000000 
000003 
000014 
000016 
000010 
000045 
000345 
000421 
000000 
000014 
000001 
000002 
000000 
ooo0001 
000001 
000041 
000040 
000003 


000013 
000001 
000000 
000003 
000003 
ooo0l1 
000016 
000011 
000003 
000002 
000002 
000011 
000001 
000003 
000000 
000167 
000565 
000267 
001054 
000674 
001103 


DVVDVDVVSE SHS Sry yrr yr yyy hy PEP EEE HEHEHE EE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE PEE PE EE EEE EE E> UUSVUUUE SS errr rer rorr 


LCLCBB 


LCLT8Z 
LcoBr 
LCOBLB 
LCOKEZ 
LCSMB 
LSABN 
LSASCB 
LSASYZ 
uiscce 
LSCRCB 
LSCTAZ 
LSDST 
LSEPFB 
LSLSPZ 
LSNTO 
LSPARB 
LSPLAZ 
LSREM 
LSRRSB 
LSRRTZ 
LSSRS 
LSSWSB 
LSTERZ 
LSWCA 
LSWEMB: 
LSWRSZ 
LSXMM 
LSYNCB 
LSYNRZ 


MP 
MPMR3 
ONE 
PCCLN 
PCCTPB 
PCECHZ 
PCNTD 
PCPCHB 
PCSWLZ 
PCXMM 
PIMe 
PIM6 
PSABN 


PSASYB 
PSCC1 
PSCCeB 
PSCRCZ 
PSOSF 
PSOWNB 
PSEPFB 
PSLSPZ 
PSNSEC 
PSPLA 
PSTER 
PSXMMB 
PSYNCZ 
PSYNT 
RAL 
ROO 
RD1LO0Xx 
RODISA 
RO200B 
ROD2O0Z 
RO201X 


000000 
oo000e 
00444 
000017 
000000 
000020 
000016 
000000 
000020 
00002 
000001 
oo0002 
000147 
002664 
002634 
002756 
003103 
000423 
003167 
001476 
000001 
000003 
ooo014 
000001 
000006 
oo0012 
000001 
000006 
000000 
000001 
ooo002 
000000 
000004 
000020 


000005 
000017 
000014 
900003 
000016 
900015 
000001 
000015 
000000 
000003 
000017 
000000 
000001 
000014 
000010 
oo000e 
000002 
900000 
000003 
000004 
000000 
000020 
000000 
900000 
000020 
000010 
000011 
000001 
000017 
000045 
000420 
000001 
000000 
ooo004 
000000 
000000 
000010 
000002 
oo001e 
000042 
000040 
900015 


000001 
000010 
000010 
000002 
000017 
000001 
ooo001 
000000 
000000 
000000 
000017 
00002 
00004 
000000 
000004 
000223 
000576 
000277 
001064 
001072 
OO1114 


DVVDVDVY HH HH ry rere ry rrr ry HH Pry yr ry yr ry rrr rrr rrr rrr rrr rrr rrr rrr > rr ry HPP Hr Er rrr ESO rOUVUUSUVUIUU> > rrr errr rrry 


LCLCBZ 
LCOBA 


( 


48) 


PAGE 


VTAM Al 


001143 
001264 
000317 
001324 
ooo4le 
OOINIY 
001461 
000515 
001472 
000463 
900000 
000120 
000054 
900003 
000017 
000023 
000005 
000006 
000013 
000017 
000005 


000011 
000012 
001355 
000001 
000004 
000000 
000004 
000020 
000004 
000000 
000020 
000003 
000004 
000004 
000004 
000000 
000020 
000001 
000006 
000020 
000000 
000010 
000001 
000006 
000011 
000002 
000002 
000017 
000020 
000003 
000007 
000010 
000001 
000000 
000020 
00422 
001505 
001477 
002506 
ooolel 
000403 
000315 


000411 
000341 
000300 
000376 
000350 
000055 
000054 
000307 
000400 
000362 
000363 
000352 
000416 
000304 
002474 
002071 
002165 
d0e22e2 
001630 
002301 
001673 
002460 
001756 
002032 
002475 
002473 


POP rr rer DUS r>DUVDVDVDD 


DVVVVUVVDDVVOVS HS Se oer ere rrr > PHVVVVES SS rrr rrr rrr rrr rrr rrr rr rrr rrr rrr rmy> 


RD202 001160 
RD203A 0O12e2 
RD30 001271 
RD300Y 001334 
RD4YO 00135! 
ROYOOC 001447 
ROWON 000434 
RD50A 001473 
RDMODE 001470 
RHW ooooo! 
RSTPR 000003 
SAVR 000467 
ste 000027 
TBEVNT 000021 
TBISP 000020 
TBKNe 000024 
TBRSB 000030 
TBRSX 000000 
TBS11 000014 
TBsi5 000002 
TBSS 000006 


TBS9 000001 
TBTMS 000000 
TCSFRR 002365 
TCBSLZ 000003 
TCCON 000015 
TCCTAB 000020 
TCCTPZ 000001 
TcoccZ 000014 
TCECH 000014 
TCIDIB 000020 
TCID2Z 000006 
TCLLN 000010 
TCNODB 000004 
TCNTOZ 000004 
TCRBC 000017 
TCREFB 000020 
TCRCAZ 000006 
TCROH 000000 
TCRRSB 000003 
TesToz 000004 
TCTCD 000000 
TCTYPB 000004 
TCWBCZ 000011 
TCWMD 000003 
TCWRSB 000003 
TCXMMZ 001475 
TIDSP 000000 
TIDWNB 000001 
TINETZ 000003 
TIODP 000000 
TIOSCB 000010 
TISECZ 000000 
TITU2 000000 
TPFPAB 000020 
TPRPAZ 000016 
TWO 001502 
TYBKBK 001504 
TYCR 001503 
TYLF 002502 
TYREAD 000034 
VSIMIN 000415 
V$BTB 000414 


VS$CKIT 000310 
VSCROR 000354 
VSCTL_ 000351 
VSERFG 003141 
VS$FREE 000320 
VSJCFG 000077 
VS$LCNT 000313 
V$LRSK 000312 
VSLUTI 000401 
VSNCTR 000413 
VSPIMN 000074 
V$SCV 000375 
VSTFC 000314 
V$UTB 003050 
WOCNT 001566 
WRIOOA 002125 
WRIOY 002202 
WRIO5X 002242 
WRIOA 001637 
WRe0O0 002314 
WR30 002361 
WR300C 001703 
WRSOA 001764 
WRGO 002052 
WRFMCC 002466 
WRTCD 000001 


PS DVBDVDVVVVVOMPS Shyer errr Myr > SH DVUD DES ry rr rrr US hr > rrr rr rrr rr rrr rr rr rrmMh> hr PES r>EE Error rUUVIVUUVUND 


RD202A 
RD203x 
RD300 
RO3002 
RD4OO 
ROO! 
RO4OA 
ROGLEN 
RORQST 
ROPWD 
RTIOB 
SEVEN 
TBATSK 
TBIO 
TBISRS 
TBKNS 
TBRSE 
Taso 
Tesl2 
TBS2 
TBS6 


TBST 
TBTRO 
TCSFWR 
TCCLN 
TCCONB 
TCCTAZ 
TCD 
TCOTO 
TCECHB 
TCIDIZ 
TCLOF 
TCLLNB 
TCNODZ 
TCPCH 
TCRBCB 
TCROFZ 
TCRMD 
TCRQHB 
TCRRSZ 
TCSWL 
TCTCOB 
TCTYPZ 
TCWCA 
TCWMOB 
TCWRSZ 
TEMP 
TIOSPB 
TIOWNZ 
TIOON 
TIOOPB 
TIOSCZ 
TITUL 
TITU2B 
TPFPAZ 
TPWPA 
TYBELL 
TYBLK 
TYCRLF 
TYLFLF 
TYSTCB 
VSBFC 
VSBVN 


VSCKPT 
VSCRM 
VSCTMS 
VSEXEC 
VSIM 
VSUCTM 
VSLER 
VSLSAL 
V$LUT2 
vSOCB 
VS$PLCT 
VSSLFG 
V$TJICP 
VTSGTM 
WROO 
WRIOI 
WR1O5 
WRIOSY 
WRIS 
WR2OO0A 
WR300 
WR30A 
WRS5O 
WR70 
WRMEM 
x 


0 ERRORS ASSEMBLY COMPLETE 


001171 
001233 
001344 
000326 
001366 
001453 
000443 
001474 
001467 
oo0002 
000032 
000466 
o0002e6 
oooo14 
000016 
000002 
000007 
000001 
000015 
000003 
000007 


000025 
003060 
000004 
900000 
000001 
000005 
oo001e 
000000 
000001 
000016 
000014 
000010 
000005 
000000 
000001 
000007 
000000 
000020 
000010 
000010 
000020 
oo0004 
000000 
000003 
000004 
000471 
000007 
000000 
000017 
000007 
ooo00e 
000000 
000020 
000015 
000000 
001501 
001500 
002503 
002500 
001506 
000075 
000334 


000301 
000302 
000070 
000347 
000410 
000050 
000356 
000345 
000402 
000346 
000305 
000303 
000344 
003134 
001602 
002142 
002230 
002255 
001643 
002346 
002415 
001714 
002017 
002470 
002467 
oo0420 


SDOVVDVVVVVVOMS Sd yore rr yr rye ry SHPUDVVD ES hhh herr rer rrr rrr rr >> rrr rrr rrr yr rrMr Prrrrr errr Ur UD DDVUDDOD 


RD202B 
RD203Y 
RD300A 
ROD30A 
RO4OOA 
RD4O2A 
RO4OB 
ROBUFF 
ROTCD 
ROBLK 
SAVA 
SIX 
TBCPTH 
TBISA 
TBISX 
TBPL 
TBRSP 
TBS! 
TBS13 
TBS3 
TBS7 


TBTLC 
TC$BRQ 
TCBSL 
TCCLNB 
TCCONZ 
TCCTP 
Tcocc 
TCOTOB 
TCECHZ 
Tc1b2 
TCLOFB 
TCLLNZ 
TCNTO 
TCPCHB 
TCRBCZ 
TCRCA 
TCRMOB 
TCRQHZ 
TCSTO 
TCSWLB 
TCTCOZ 
TCWBC 
TCWCAB 
TCWMDZ 
TCXMM 
TEN 
TIOSPZ 
TINET 
TIODNB 
TIODPZ 
TISEC 
TITUIB 
TITVeZ 
TPRPA 
TPWPAB 
TYBKAR 
TYBSLH 
TYFORM 
TYONE 
TYWRIT 
V$8GLB 
VSCAM 


VSCPL 
VSCRS 
VSDATE 
VSFGLB 
VSIOA 
VSINAM 
VSLIT 
VSLUNT 
VSLUT3 
VSOPCF 
VSPTVB 
V$TB 
VSTMN 
VTSMPIL 
WRIO 
WR102 
WRIOSA 
WRIOG 
WRISA 
WReOOB 
WR300A 
WR30B 
WR5OA 
WRBLEN 
WRMODE 
ZERO 


oolell 
001260 
001313 
000340 
001403 
001457 
000467 
OO14T71 
000002 
000002 
000033 
000044 
000011 
000015 
000022 
ooo004 
000010 
000012 
000016 
ooooo4 
000010 


000013 
003121 
000011 
000010 
oo0c02 
ooo014 
000000 
000020 
000015 
000000 
00001 
000005 
000000 
000010 
000013 
000000 
000003 
000006 
000000 
oooo01 
000005 
000016 
000020 
000006 
ocoo12 
ooo464 
000002 
000000 
000001 
000003 
000007 
000020 
000017 
000000 
000020 
000056 
002505 
002507 
000000 
002501 
000056 
000353 


000076 
000360 
000355 
000306 
000412 
000377 
000317 
000316 
000330 
000311 
000361 
000342 
000343 
003143 
002060 
002151 
002246 
002264 
001653 
002354 
002435 
001736 
002026 
002471 
002472 


DODVVVDVVDDVDOMS Sy yy rrr yey yyy SH VVUVVE YS Shr rrr rrr yr rrr rrr rrr rrr rrr rrr yr rM> PPS rrr yrrDUrY>UDDUVVVVD 


TYREAD 
RD203 


TBTMIN 
TCSCRQ 
TCBSLB 
TCCLNZ 
TCCTA 
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VTAM AL 


000000 
oooc01 
ooo00e 
000003 
000004 
000005 


000006 
000007 
000010 


coool! 
ooo01e 


000013 
oooo14 
000015 
000016 
000017 
oo00e0 
ooo0e! 


000005 
000021 
000152 


000002 
000010 
oooo0! 


oo0002 
000011 
000001 


000002 


100444 
100747 
006027 
000000 
001026 
000011 


006505 
000000 
000200 


100244 
100147 


006505 
000000 
100000 
003152 
000605 
000000 
000000 


A 
A 
A 


>r>D>>mM> >> SM DHM> yr 


-oomvdourun— 


eee wane 


12 


1353 


wees eeneoee 


. 
LPSIZ 
. 
LSOSIZ 
. 
TRMLUN 
. 


. 
GETMEM 


PUTMEM 


BLOMAT 


OCLIAI 


OCLIBI 


VTSOCL ( 50) 


EJEC 
THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOL 


V.0.M. PART NO. 92L1105-O013A 


RELEASED 03-26-73 


vTsocu 
TITLE vT$OCL 
NLIS 
LIST 
EVEC 


VTSOCL - VTAM LINE OPEN/CLOSE MODULE 

THIS MODULE IS CALLED 

BY MEANS OF A SCHED CALL TO THE REAL-TIME EXEC. IT 
PROCESSES LINE OPEN/CLOSE REQUESTS THREADED FROM 
CC$OCM, AND EXITS TO THE RTE WHEN ALL REQUESTS HAVE 
BEEN PROCESSED. 


NAME VTSOCL 
ExT CCSOCM,CC$LSD,VTSMP1 
ExT CCSCRQ 
ExT CCSORQ 


£Qu 5 SIZE OF LSD PROTOTYPE 
EQu 17 SIZE OF LSD 


LOGICAL UNIT NUMBER FOR 
PROTOTYPE LSD FILE, VTSOFL. 


EQu 106 


VTSGTM 
DATA 0600, VTSGTM 


VTSPTM 
DATA 0600, VTSPTM 


ExT VTSBMT 
DATA 0600, VTSBMT 


EQUATES FOR LSD PROTOTYPE 


EQu 2 

E€Qu 8 

qu 

EQu 2 

EQu 9 

qu 1 

Eau 2 

EEC 

ENTRY POINT TO LINE OPEN/CLOSE MODULE. 
DINTS 

LOBE CCSOCM 

YBNZ OCLIAL 

EXIT EXIT TO RTE IF QUEUE IS EMPTY 
EINTS 


OPEN OCLFCB, TRMLUN 


PAGE 


ol 


(-¥-0-1-4-1-1-1- 0-1-1 -1-1- 1-3-0 0-0-1 - 1-0-0 0-0-0 -0-0 0-0-0 0-0-0 -0- 0-3-3 -2) 


o1 


o1 


VTAM At 


000022 
000023 


000024 
0000e5 
000026 
0000e7 
000030 
00003) 
000032 
000033 
000034 
000035 
000036 
000037 
000040 


00004! 
000042 
000043 
000044 
000045 
000046 
000047 
000050 
000051 

000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 

000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 

000072 
000073 
000074 
000075 
000076 
000077 
000100 
oooio! 

000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 

o001l1e 


000113 
ooo11y 
000115 
000116 
ooo117 
000120 
ooo1e! 
o001ee 
000123 
000124 
000125 
000126 


000127 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 


000140 
ooo14! 
o0014e 
000143 
000144 
000145 
000146 
000147 
000150 
000151 
000152 
000153 
000154 


000155 
000156 


006017 
000015 


006505 
000000 
000013 
000507 
000033 
000507 
000507 
006027 
000003 
016001 
150463 
054561 
036000 


015022 
054560 
015023 
054557 
036002 
015002 
150463 
054547 
005002 
OO4s41 
oOosi11 
124546 
005014 
015000 
001026 
000062 
004350 
150463 
054536 
006037 
000034 
015001 

004350 
150472 
130466 
054540 
001016 
000323 
O145e4 
130463 
001010 
000120 
130463 
005111 

124520 
005014 
015000 
001002 
000113 
014527 
001000 
000507 


001010 
000120 
014523 
001000 
000507 
024477 
005001 
006170 
000030 
o051e2 
064462 
054507 


006505 
000014 
100000 
000152 
000605 
000000 
000000 
006017 
000131 


006505 
ooo0e5 
000127 
000507 
000147 
000507 
000507 
014466 
o04e42 
124464 
124444 
054460 
005014 


015002 
004350 


PPO r HSE DVDDVIMyH DSH HVS SMH SHH Hy Ky Kr VH KH VH DHF VHS > errr Derr DS Sr ere Myr yr r Urry errr rr rrr rr > Sree mMr>UDUVUM> D> 


>> 


1354 
1355 


1407 
1408 


1409 
1410 
mit 
412 
1413 
1414 
1415 


OCLIC! 


OCLIDI 


OCLIFI 


OcL2Al 


OcL2A2 


OCL2A3 


LDAE 
STAT 


LDAE 
STAT 


TAX 
FETCHA 


OCLIB1+2 


VTSOCL ( 51) PAGE 


00 STATUS CHECK 


OCL1B1,OCLYAI,OCLIC!,OCL4AI ,OCLYAL 


CCMLUN 
RSTPR,B 


OMLTA,X 


LLTBAS 
0.x 
OCL1O1 
8 

RHW 
PHYSLN 
ccsocm 
ROPWD , X 
8 

BM17 
SIx 
OCFLG 
OCL3A1 
PHYSLN 


RH 
OCcL2Al 


OCLFCB+3 
TEMI 


GET LUN FOR CCM 

SAVE CCM LUN 

CONTRLR TBL ADRS FOR CCM 

FIND BASE ADRS FOR LLT 

FIND BASE ADRS FOR PLT 

ADRS OF LCB IN X 

GET LOGICAL LINE NO. FROM LCB 
SAVE LOG. LINE NO. 

CONVERT TO DISPLACEMENT IN LLT 
ADD LLT BASE ADRS 


PICK UP LLT ENTRY 
RIGHT BYTE ? 


NO - LEFT 
SAVE PHYS LINE NO. 


GET OP CODE 

OPEN REQUEST ? 

SAVE OPEN/CLOSE FLAG 

NO 

YES - 

HAS LOG LINE BEEN ASSIGNED TO PHYS LINE ? 
NO 

VES - 

COMPUTE ENTRY IN PLT 

GET PLT ENTRY - LINE UP ? 


YES 
NO - SET ERROR CODE 
GO TO END 


JUMP IF LINE NOT OPEN 


LINE ALREADY OPEN - SET 
ERROR CODE AND GO TO END 


COMPUTE 


SECTOR NO. 
FOR LSD PROTOTYPE 


SAVE REMAINDER TO COMPUTE DISPLACEMENT 


OCLFCB,TRMLUN READ LSD PROTOTYPE 


OCL2Ae+2 


DO STATUS CHECK 


OCL2A2,OCLYAI ,OCL2A3,OCLYHAI ,OCLYAI 


TEM! 
2 


TEML 
INBFAD 
LSPRAD 


COMPUTE DISPLACEMENT 
INTO SECTOR FOR LSD PROT 
ADD BASE ADRS FOR SECTOR 
SAVE LSD PROT. ADRS 


X,LPDEF,LPDEFB,LPDEFZ 1S LINE DEFINED ? 


o1 
ol 


o1 
01 


00078 
00079 


00131 
00132 


00133 
00134 
00135 
00136 
00137 
00138 
001339 


VTAM AL 


000157 
000160 
ooo16! 


000162 
000163 
o00164 


, 000165 
000166 


. 000167 


000170 

171 
ow0i72 
000173 
oo0174 


000175 
000176 
000177 
000200 
000201 
000202 
000203 
900204 
000205 
000206 
000207 
000210 
000211 
ood2l2 


000213 
000214 
900215 
000216 
000217 
000220 
000221 
000222 
000223 
000224 
000225 
o00ee6 
000227 
000230 


000231 

000232 
000233 
000234 
000235 
000236 
000237 
000240 
oo0e41 

oo0e4e 
000243 
000244 
000245 
000246 
000247 
000250 
000251 

000252 
000253 
900254 
000255 
000256 
000257 
000260 
000261 
000262 


000263 
000264 
000265 
000266 
000267 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000300 
000301 


000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 


150421 
001016 
000165 


o144sy 
001000 
000507 


015002 
004351 
150421 
001010 
000175 
014445 
001000 
000507 


015002 
150463 
asu4ee 
o244es 
146000 
001004 
000207 
014435 
001000 
000507 
006010 
oo000e1 
006020 
000000 


006505 
000007 
000600 
000000 
001016 
o002e4 
o144e3 
001000 
000507 
054400 
005014 
006020 
000021 
005001 


055000 
005144 
005322 
001026 
000231 

034375 
024365 
006010 
000005 
054372 
015000 
056014 
005122 
005144 
014365 
005311 

001016 
000242 
006027 
000065 
016000 
034346 
055012 
OL4341 
124342 
005111 


100444 
100747 
006027 
000000 
006077 
000266 
065000 
005012 
076000 
014323 
005002 
004541 
005111 
124322 
005014 


015000 
001020 
000313 
150462 
1149313 
055000 
005001 
001000 
000505 


1416 


1417 
1418 


1419 


1420 


1421 
1422 


1423 


1424 
1425 
1426 
1427 


1428 
1429 


1430 
1431 
1432 


1433 


1434 
1435 


1436 
1437 
1438 


1439 


1440 
1441 
1442 
1443 


1444 
1445 
1446 


1447 
1448, 
1449 
1450 
1451 
1452 
1453 
1454 


1455 


1456 
1457 
1458 
1459 
1460 
1461 
1462 


1463 
1464 


1465, 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 


1474 
1475 


1476 
1477 
1478 
1479 
1480 


OcLeB1 


OcLec! 


OcLeD1 


ocLeD2 


OCL2DA 


OCL20E 


JANZ 
LDA 
JMP 
FETCHA 


JAZ 


LDA 
JMP 


FETCHA 


ocLes! 


ERRORA 
OCLYAL 


VTSOCL ( 52) 


YES 


NO ~ SET ERROR CODE 
GO TO END 


X,LPDWN,LPDWNB ,LPDWNZ IS LINE DOWN ? 


ocLeci 


ERRORB 
OCLYAL 


X,LPPLA,LSPLAB,LSPLAZ GET PHYS LINE NO. FROM PROT. 


PHYSLN 


CcsocM 
RSTPR,B 
LSDADR 
LSCTA,X 


PHYSLN 
PLTBAS 


CC$LSD 
CC$LSD 
0.x 
0.8 
LOGLN 
1 
LLTBAS 
0,x 
OCL2eES 
LHW 
PHYSLN 
0,x 
OCL4BI 


NO 
YES - SET ERROR CODE 
GO TO END 


SAVE PHYS LINE NO. 
IS PHYS LINE NO VALID ? 


YES 
NO - SET ERROR CODE 
GO TO END 


ADRS OF MEM POOL 
GET TSB FOR LSD 


NO TEMPORARY STORAGE AVAILABLE, 
SET ERROR CODE AND GO TO ENO 


SAVE ADRS OF TSB FOR LSD 
SIZE OF LSD 


CLEAR OUT 
TSB FOR 
NEW LSO 


ADRS OF LSD PROTOTYPE 
AORS OF NEW LSD 
SIZE OF LSO PROT. 


TRANSFER LSD PROTOTYPE 
TO NEW LSD 


GET CONTRLR TBL ADRS 
STORE IN NEW LSD 


COMPUTE 
PLT ENTRY 


THREAD NEW LSD 


ONTO QUEUE 
PLT ENTRY ADRS IN B REG 
LINK LSO TO PLT 


GET LLT ENTRY 
LEFT BYTE ? 


NO - RIGHT 
OR PHYS LINE 
NO, INTO LLT ENTRY 


PAGE 
o1 
ol 


01 
01 


01 


ol 
o1 


Lsoo1 


VTAM AL 


000313 
o00314 
000315 
000316 
000317 
000320 
000321 
000322 


000323 
000324 
000325 
000326 
000327 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000340 
000341 
000342 
000343 
000344 
000345 


000346 


000347 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000360 
000361 
000362 
000363 
000364 
000365 
000366 


000367 
000370 
000371 
000372 
000373 
000374 
000375 
000376 


000377 
000400 


00040! 
000402 
000403 


000404 
000405 
000406 
000407 
000410 
000411 
ooo41e 
000413 
ooo4i4 


000415 
000416 
000417 


000420 
oo004el 
oo004ee 
000423 
oo004ey 
0004e5 
0004e6 
000427 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 


150463 
004250 
114304 
004250 
055000 
005001 
001000 
000505 


014276 
130463 
001016 
000332 
014307 
001000 
000507 
130463 
005111 
124267 
005014 
015000 
150460 
001016 
000345 
014300 
001000 
000507 
005014 
000001 


o1so14 


004356 
140422 
001004 
000377 
074262 
006037 
000254 
014013 
150462 
054011 
014237 
114007 
054006 
014233 
114e41 
054213 


006505 
000130 
100000 
002400 
000600 
000000 
000000 
034237 


100444 
100747 


015001 
001010 
000411 


1ooe44 
100147 
014235 
0019000 
000507 
o1yele 
124207 
oosii1 
005012 


016000 
150440 
056000 


014177 
005002 
o04s4! 
oosiit 
124176 
074210 
005014 
015000 
001020 
000435 
110463 
001000 
000436 
110462 
055000 
034176 


D> >rrery 


>>> SPP O DSS he ry DEH HH SHH DHSMhH SPE OErSrrM>> Dery & HH DH SUS h> rye err Der Derr 


Pr Der Der rrr rrr> 


VTSOCL ( 53) PAGE 
1481 OCL2E3 ANA RHW PLN GOES INTO LEFT BYTE 
1482 LRLA 8 
1483 ORA PHYSLN OR PHYS LINE 
1484 LRLA 8 NO. INTO ROTATED LLT ENTRY 
1485 STA 0,x ANO ROTATE BACK 
1486 TZA 
1487 JMP OCL4BI 
1488 © 
1489 * PROCESS CLOSE REQUESTS HERE 
1490 © 
1491 OCL3AI LDA PHYSLN 
1492 ERA RHW HAS LOG. LINE BEEN ASSIGNED TO PHYS. LINE? 
1493 JANZ OCL3AB YES 
1494 LDA ERRORA NO - SET ERROR CODE 
1495 JMP OCLHAT GO TO END 
1496 OCL3AB ERA RHW 
1497 TAR COMPUTE ENTRY 
1498 AOD PLTBAS IN PLT 
1499 TAX 
1500 LOA 0,x GET PLT ENTRY 
1501 ANA BRI5 IS LINE OPEN ? 
1502 SANZ OCL381 YES 
1503 LDA ERRORE NO - SET ERROR CODE 
15¢4 JUMP OCLYAI GO TO END 
1505 OCL3B1 TAX 
1506 LSD SET x 
1507 FETCHA LSD,LSMOD,LSMODB,LSMODZ GET MODEM TYPE 
1508 SUB THO DIALUP LINE ? 
1503 JAN OCL301 NO 
1510 STX TEM! YES - 
1511 LOXE CC$OCM 
1512 LOA OCL3C1+3 CLEAR OLD 
1513 ANA LHW LUN FROM FUNC REQUEST 
1514 STA OCL3C1+3 
1515 LDA CCMLUN GET LUN FOR CCM 
1516 ORA OCL3C1+3 
1517 STA OCL3C1+3 STORE LUN IN FUNC REQUEST 
1518 LOA LOGLN GET LOG LINE NO, 
1519 ORA OTROFF ADD FUNC CODE - DTR OFF 
1520 STA FNCLCB+2 SET IN LCB 
1521 OCL3C1 FUNC FNCLCB,O ISSUE FUNC TO TURN DTR OFF 
1522 LOX TEM 
1523 OCL301 DINTS 
1524 FETCHA LSO,LSRRT,LSRATB,LSRRTZ IS REQUEST QUEVE EMPTY ? 
1525 JAZ OCL3E1 YES 
1526 EINTS NO - 
1527 LOA ERRORF SET ERROR CODE 
1528 IMP OCLYAL GO TO END 
1529 OCL3E1 LDA PLTBAS 
1530 A0D PHYSLN COMPUTE 
1531 TAR PLT ENTRY ADRS 
1532 TAB 
1533 LDA 0.8 GET PLT ENTRY 
1534 ANA BS15 CLEAR ADRS FIELD 
1535, STA 0,8 (DELETE LSD FROM PLT) 
1536 * CLEAR LOGICAL LINE TABLE ENTRY 
1537 LDA LOGLN COMPUTE LLT ENTRY ADDRESS 
1538 ZB 
1539 LLSR 1 
1540 TAR 
1541 ADD LLTBAS 
1542 STXx TEM! SAVE X REG. 
1543 TAX 
1544 LOA 0,x GET LLT ENTRY 
1545 JBZ OCL3E2 LEFT BYT 
1546 ORA RHA NO, RIGHT 
1547 SMP OCL3E3 
1548 OCL3E2 ORA LHW 
1549 OCL3E3 STA 0.x 
1550 LOx TEM RESTORE X REG. 
1551 ¢ 
1552 EINTS 


VTAM AL 


000440 
00044! 
ooo44e 
000443 
OOO44Y 
000445 
000446 
000447 
000450 
000451 
o004Sse 
000453 
000454 
000455, 


000456 
000457 
000460 
000461 
000462 


000463 


000464 
000465 
O00466 
000467 
000470 
000471 
000472 


000473 
000474 
000475, 
000476 
000477 
000500 
000501 
000502 
000503 
000504 


000505 
000506 
000507 
000510 
000511 
000512 
000513 
000514 


000515 
000516 
000517 
000520 
000521 
000522 
000523 


000524 
000525 


000526 
000527 
000530 
000531 
000532 
000533 


000534 
000535 
000536 
000537 
000540 
000541 
oo054e 
000543 
000544 
000545 
000546 
000547 


000550 
000551 
o005se 
000553 
000554 
000555 
000556 


000557 
000560 
000561 


100244 
100147 
ooso4t 
006030 
000270 
001040 
000502 
135000 
001010 
000456 
135000 
035000 
001000 
000445 


100444 
100747 
135000 
005012 
016000 


055000 


100244 
100147 
006010 
000021 
056000 
006010 
oo0el2 


006505 
000214 
000600 
gooo00 
005001 
001000 
000507 
014134 
001000 
000507 


100244 
100147 
o54121 
001016 
000557 
014120 
001016 
000557 


O14olt 
150462 
114101 
054006 
014076 
114103 
054056 


006505 
000370 


100000 
002400 
000600 
000000 
000000 
034071 
oon001 


015014 
004356 
1yo42e 
001004 
000557 
Owmoll 
150462 
114055 
054006 
014052 
114061 
054032 


006505 
000525 
100000 
002400 
000600 
000000 
000000 


100444 
100747 
006027 


PPDPEHMh FOP rrr y> DH r yy >> ryrD> > MH PY rrr >r 


>>> 


DESDE SHH DHS DS HMSMy M>>r rey SF Sr >ry DHE r DESDE M>r>ry 


1591 
1592 
1593 


1594 
1595 


1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 


TXA 
LOxI —-CcSLSD SCAN LSD QUEUE FOR THIS LSD 
OCL3F1 UxZ OcL3F4 ERROR - NOT FOUND 
ERA LSTHD, x 
JAZ OCL3F2 YUMP IF FOUND 
ERA LSTHD,X 
LOX USTHD,x LOOK AT NEXT 
MP OcL3F i 
OCL3F2 DINTS 
ERA LSTHD,X 
TAB 
LDA 0,8 DELETE LSD FROM 
STA 0.x LSD QUEUE 
EINTS 
LDAI —-LSDS1Z 
STA 0.8 PUT LSD SIZE_IN TSB 
LDAI —-V7$MP1 ADRS OF MEM POOL 
PUTMEM RETURN TSB (LSD) TO MEM POOL 
TZA 
MP OCLHAI GO TO END 
OCL3F4 LDA ERRORA ERROR - LSD NOT IN QUEUE 
MP OCL4AL 
OCL4BI EINTS ENABLE INTERRUPTS 
OCLYAI STA STATSV SAVE REQUEST STATUS 
YANZ —-OCLHEL JUMP IF THERE WERE ERRORS 
LOA OCFLG OPEN REQUEST ? 
JANZ —-OCLYEL No 
. 
. ISSUE FUNC 24 TO INITIALIZE LINE 
. 
LOA ocLuci+3 
ANA LR 
ORA CCMLUN SET LUN FOR CCM 
STA OCLHC1+3 IN FUNC REQUEST 
LOA LOGLN GET LOG. LINE NUMBER, 
ORA FUNC24 OR WITH FUNC CODE 
STA FNCLCB+2 FOR FUNC 24 
OCLYC! FUNC —- FNCLCB,0 ISSUE FUNC TO INITIALIZE LINE 
LOX LSDADR 
tsp SET x 
FETCHA LSD,LSMOD,LSMODB,LSMODZ GET MODEM TYPE 
sus THO DIALUP LINE ? 
JAN OCLHE1 NO 
LDA OCL4D3+3 YES - 
ANA LHW 
ORA CCHLUN SET CCM LUN IN FUNC ROST 
STA OCL4D3+3 
LOA LOGLN GET LOG. LINE NO. 
ORA DTRON OR IN FUNC CODE FOR TURN DTR ON 
STA FNCLCB+2 SET IN LCB 
OCLYD3 FUNC —- FNCLCB,0 TURN DATA TERM. READY ON 


vTSOCL c 54) 


* PERFORM REQUEST COMPLETION PROCESSING HERE 


1604 * 

1605 

1606 * 

1607 OCLYE! DINTS 
1608 LDBE 


CCS$OCM 


“B > REQUEST ADDRESS 


PAGE 


00277 
00278 


00279 


00280 
00281 


ooe82 
00283 
ooes4 


00285 


00286 
00287 
ooe8s 


00289 
00290 


00291 


00292 
00293 


00294 


00295 
00298 


00297 
00298 


00es9 


00300 
00301 


00302 
00303 


00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 


00328 
00329 
00330 
00331 


00332 


VTAM Al 


000562 
000563 
000564 
000565 
000566 
000567 
000570 


000571 
000572 
000573 
000574 
000575 
000576 
000577 


000600 
000601 
ooo60e2 
000603 


000605 
000606 
000607 
000610 
oo0611 
000612 
000613 
000614 
000615 
000616 
000617 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000630 
000631 
000632 
000633 
000634 
000635 
000636 


000637 
000640 
000641 
000642 
000643 
000644 
000645 
000646 


000355 
036004 
006077 
000562 
005004 
076004 
064013 


006030 
000603 
014035 
002000 
000000 
001000 
000002 


>>>mE>m 


DEM>r Dy 


000000 A 
000000 
000000 


>> 


000170 
000646 
000306 
000000 
000000 
000000 
000000 
153324 
122304 
143314 
000646 
000000 
000000 
000000 
000000 
000000 
oo0000 
014000 
004400 
004000 
000000 
000000 
000000 
000000 
000000 
000000 


ee ee eee eS 


033640 A 
035640 A 
036640 A 
042640 A 
034640 A 
037640 A 
O44640 A 


ENTRY NAMES 


000000 


R VTSOCL 


EXTERNAL NAMES 


000000 
000474 
000472 


E— CC$CRO 
E VSEXEC 
E— VTSMPI 


SYMBOLS 


000044 
oo00le 
000016 
000004 
000010 
000472 
000473 
000476 
000454 
000460 
000446 
000452 
000434 
000440 
000426 
000432 
000575 
000000 
000000 
000020 
000006 
000000 
000010 


ooco00 
000000 
900020 
000004 
000010 


CTFCeB 
CTFRCZ 


PPP rE EMP E> rrr rrr > rreryy 
o 
D 
o 


cT10B 
CTIOAB 
CTOPMZ 
cTRQB 
CTRTRB 


Prr>> 


VTSOCL ( 55) PAGE 


1603 LOX RADNR ,B 01 00333 
1610 STXE CCSOCM DETHREAD REQUEST 01 00334 
1611 T2x 01 00335 
\612 STX RAONR ,B ZERO THREAD IN REQUEST 01 00336 
1613 sTB ODUMLSD+LSRRT LINK ROST TO DUMMY LSD 01 00337 
1614 LOXxt DUMLSD 01 00338 
1615 LDA STATSV ERRORS ON REQUEST ? 01 00339 
1616 CALL CC$ORQ USE SPECIAL ENTRY POINT TO CC$CRQ O01 00340 
1617 JMP OCLIA GO BACK FOR NEXT REQUEST O1 00341 
1618 © 01 00342 
1619 * 01 00343 
1620 FNCLCB OCB 0,0 01 00344 
1621 OUMLSD BSS LSRRT+1 01 00345 
1622 OCLFCB FCB 120, INBUF,O,'F','VT','$D',‘FL* 01 00346 
1623 INBFAD DATA IN@UF 

1624 LOGLN DATA 0 

1625 CCMLUN DATA ti) 

1626 PHYSLN DATA oO 

1627 LLTBAS DATA 0 

1628 PLTBAS DATA 1) 

1629 LSDADR DATA Q 

1630 FUNC2Y DATA 014000 

1631 DTROFF DATA 04400 

1632 DTRON DATA 04000 

1633 STATSV DATA oO 

1634 LCBAOR DATA Q 

1635 OCFLG_ DATA 0 

1636 LSPRAD DATA t) 

1637 LPSHLD DATA ti) 

1638 TEM1 DATA 0 

1639 * 

1640 * ERROR CODES FOR OPEN/CLOSE LINE 

1641 ¢ 

1642 ERRORA DATA 033640 INVALID LOGICAL LINE NO. (ERR FLG,CC#5) 

1643 ERRORB DATA 035640 LINE DOWN(OPEN) 

1644 ERRORC DATA 036640 LINE ALREADY OPEN(OPEN) 

1645 ERRORD DATA 042640 INVALID PHYS LINE ADDRS 

1646 ERRORE DATA 034640 LINE NOT OPEN(CLOSE) 

1647 ERRORF DATA 037640 REQUESTS STILL PENDING ON LSD(CLOSE) 

1648 ERRORG DATA 044640 NO TEMPORARY STORAGE AVAILABLE . 

1649 INBUF BSS 120 01 00373 
1650 * 01 00374 
1651 END 01 00375 
000444 E CCS$LSD 000565 E CCS$OCM 000575 E CCSORQ 

000551 E VS$IOC 000141 E VS$IOST 000216 E VTSGTM 

000476 E VTS$PTM 

oo0002 A B oooo0o A BO 000001 A BI 

000013 A Bil 000014 A Ble 000015 A B13 

000017 A B15 ooo00e A Be 000003 A 83 

900005 A BS 000006 A BE 000007 A 87 

000011 A BS 000000 A BICNUM 00042! A BMI 

000475 A BM177 000477 A BM1777 OOO46Y A BMS 

000463 A BM377 000467 A BM7 000474 A BM77 

000441 A BRO 000442 A BRI 000453 A BRIO 

000455 A BRI2 000456 A BRI3Z 000457 A BRIY 

000443 A BRE G00444 A BRI 000445 A BRY 

000447 A BRE 000450 A BR7 000451 A BRE 

000421 A BSO 000422 A BSI 000433 A BSI0 

000435 A BSI2 000436 A BSI3 000437 A BSIY 

000423 A BS2 o004e4 A BS3 000425 A BSY 

000427 A BS6 000430 A BS7 000431 A 

000000 E CCSCRQ 000444 E CC$LSD 000565 E CCSOCM 

000621 R CCMLUN 000047 A CLOCK 000000 A COTADI 

000017 A CTACTB 000001 A CTACTZ 000001 A CTADN 

000020 A CTAONZ 000011 A CTBIC 000000 A CTBICB 

900003 A CTOST 000000 A CTDSTS 000020 A CTOSTZ 

000000 A CTOVAS 000020 A CTDVAZ 000012 A CTIFCB 

000020 A CTFCBZ 000014 A CTFRC 000010 A CTFRCB 

000014 A CTFRE 000000 A CTFREB 000010 A CTFREZ 

000000 A CTIOBB 000017 A CTIDBZ 000007 A CTIOA 

000020 A CTIOAZ 000002 A CTOPM 000000 A CTOPMB 

000005 A CTRCN 000000 A CTRCNB 000010 A CTRCNZ 

000000 A CTROBB 000020 A CTRQBZ 000005 A CTRTIR 

000010 A CTRTRZ 000010 A CTSTA 000000 A CTSTAB 


VTAM AI 


oo0002e0 
000001 

000745 
000020 
o000e1 

000000 
000020 
000020 
000000 
000020 
oo00002 
oo000e 
000627 
000147 
000640 
000644 
000423 
000300 
000003 
000003 
000014 
000001 

000006 
000012 
000001 

000006 
000000 
ooo001 

000002 
000000 
000004 
000020 
000005 
000017 
000014 
000003 
000016 


000620 
000002 
000635 
oooco1 
000014 
000010 
000010 
000012 
000625 
000021 
000016 
oo0000 
oo000e 
ooo014 
000000 
oo0000 
000020 
000001 
000000 
000020 
000016 
000000 
oo00020 
000016 
000000 
000002 
000020 
000000 
000145 
000461 
000011 
000113 
000165 
000231 
000332 
000411 
000456 
000524 
ooo4e) 
oo0000 
ooco14 
ocooo! 


000002 
900000 
000001 
00001 
000040 
000040 
o006e4 
000001 
000002 
000010 
000003 
000010 
co0001 
oooo04 
000000 
000016 
co0014 
000010 


PPP rrr eH r eK UH HHH Hy HHH KH VIVO DDO DHHS here errr rer rrr rrr rr UE H rrr VHD SPE reer errr rer rrr rrr UTS US > rrr rr errr 


CTSTAZ 
OCBUFF 
DISMP 

DMCWAZ 
OMLCA 

OMLTAB 
OMPTAZ 
OMSTA 

OMSWAB 
OMTPAZ 
OSLCKO 


LCRCC 
LCSMBB 


LOGLN 
LPOWN 
LPSHLD 
LSABNZ 
LSASY 
LSscclB 
Lsccez 
LSCTA 
LSODAOR 
LSOSIZ 
LSEPF 
LSLSPB 
LSMOOZ 
LSPAR 
LSPLAB 
LSRCAB 
LSREMZ 
LSRRT 
LSRTOB 
LSSRSZ 
LSTER 
LSTHOB 
LSHCAZ 
LSHRS 
LSWTOB 
LSXMMZ 
LSYNR 
LSYNTB 
MPMRI 
NEG 
OCLIAL 
OCLIF! 
ocveB! 
OCL2DA 
OCL3AB 
OCL3E1 
OCL3Fe 
OCLYC! 
ONE 
PCCLN 
PCCTPB 
PCECHZ 


PCNTD 
PCPCHB 
PCSHLZ 
PCXMM 
PIMI 
PIMS 
PLTBAS 
PSABNZ 
PS3ADT 
PSCCIZ 
PSCRC 
PSOZFB 
PSDSFZ 
PSEND 
PSLSP 
PSMODB 
PSPARB 
PSPLAZ 


000013 
ooco02 
000444 
000017 
000000 
000020 
000016 
ooo000 
000020 
ooooce 
000001 
000002 
000630 
000645 
000641 

000645 
000626 
000003 
oooo1e 
000014 
000001 

000006 
000016 
goo0001 

000006 
000010 
000017 
000000 
000010 
000010 
000050 
000007 
000000 
000001 

000007 
000017 
ooo001 


00002 
000011 

000005 
000017 
000013 
000010 
000017 
000000 
000017 
000013 
000016 
000011 

ooc0e0 
000014 
000010 
000020 
000016 
000000 
000020 
000011 

000017 
000020 
000007 
000013 
000020 
000017 
000000 
000010 
000245, 
000470 
000013 
000120 
000175 
o002e42 
000345 
000435 
000502 
000550 
000001 
000000 
000004 
000000 


000000 
000010 
000002 
ooo0ie 
000041 
000040 
oo0e00 
000000 
000000 
oooco1 
ooo0le 
000001 
000002 
000002 
000000 
000002 
000002 
000001 


PPPS EEE EEE EEE EEE EE KOOP VDVVVD VDE Eh rrr errr err errr ory rrr rrr rrr ry FESS EEE EEE EEE EEE E> E> UDUES USE rrr rrr rery 


CTWOS 
DCCNT 
DISPIM 
OMFPA 
OMLCAB 
DMLTAZ 
OMRPA 
OMSTAB 
OMSWAZ 
DSCTAD 
OSNAME 
DSREWD 
OTRON 
ENAMP 
ERRORC 
ERRORG 
FUNCeY 
LCABN 
LCASYB 
LCCRCB 
LCCWBZ 
LCCWD 
LCCWIB 
LCCWPZ 
LCCWS 
LCCHTB 
LCIBAZ 
LCIBL 
LCICIB 
Leicaz 
LCcuP 
LCLTe 
LCOBAB 
LCOBFZ 
LCOKE 
LCRCCB 
LCSMBZ 


LPOEF 
LPOWNB 
LPSIZ 
LSASC 
LSASYB 
LSscc1z 
LSCRC 
LSCTAB 
LSOSF 
LSOST 
LSEPFB 
LSLSPZ 
LSNTO 
LSPARB 
LSPLAZ 
LSRCAZ 
LSRRS 
LSRRTB 
LSRTOZ 
LSSHS 
LSTERB 
LSTHOZ 
LSWEM 
LSWRSB 
LSWTOZ 
LSYNC 
LSYNRB 
LSYNTZ 
MPMR2 
NINE 
OcL1B1 
OCL2A1 
OcLec! 
OCL2DE 
OCL381 
OCL3E2 
OCL3F4 
OCL4D3 
PCBSL 
PCCLNB 
PCCTPZ 
PCLLN 


PCNTDB 
PCPCHZ 
PCTYP 
PCXMMB 
PIM2 
PIM6 
POST 
PSASY 
PSBEG 
pscce 
PSCRCB 
PSDEFZ 
PSOWN 
PSEPF 
PSLSPB 
PSMODZ 
PSPARZ 
PSPROT 


000000 
000000 
ooo0e4 
000000 
000020 
000023 
000000 
000020 
000015 
000000 
oo0000 
000000 
000603 
000244 
oo00642 
000465 
000617 
000013 
ooooo! 

000003 
000006 
000013 
000001 

000006 
000017 
000001 

000000 
000000 
000010 
000003 
000006 
000017 
000017 
000004 
000000 
000001 

000462 


000010 
000001 
000017 
000011 
000001 
000015 
000012 
000020 
000017 
000000 
000001 
000014 
000010 
000002 
000634 
000003 
000010 
000020 
000005 
000000 
000001 
000006 
000000 
000003 
oo0014 
000016 
000010 
000045 
000345 
000633 
000033 
000127 
000207 
000313 
000367 
000436 
000507 
000557 
000011 
000010 
000001 
000010 


00004 
000001 
000010 
oo00002e 
900042 
000340 
000003 
000013 
ooo00! 
000000 
000003 
000003 
000011 
000016 
000011 
000003 
000002 
oo0000e 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
R 
A 
R 
A 
R 
A 
A 
A 
A 
a 
A 
A 
A 
A 
A 
A 
A 
A 
A 
a 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
R 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
R 
R 
R 
R 
R 
R 
R 
R 
R 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


CTHDSB 
OCRECL 
DMCWA 
OMFPAB. 
OMLCAZ 
DMPTA 
DMRPAB 
DMSTAZ 
OMTPA 
OSDASS 
OSNORQ 
DSUNAM 
DUMLSD 
ENAPIM 
ERRORD 
FIVE 
INBFAD 
LCABNB 
LCASYZ 
LCCRCZ 
LCCWC 
LCCWDB 
LCCHIZ 
LCCWR 
LCCWSB 
LCCWTZ 
LCIBF 
LCIBL8 
LCICIZ 
LCIKE 
LCLCB 
LCLT8B 
LCOBAZ 
LCOBL 
LCOKEB 
LCRCCZ 
LHW 


LPDEFB 
LPDWNZ 
LSABN 

LSASCB 
LSASYZ 


PCLLNB 


PCNTOZ 
PCSWL 
PCTYPB 
PCXMMZ 
PIM3 
PIM7 
PSABN 
PSASYB 
PSCC1 
PscceB 
PSCRCZ 
PSOSF 
PSDWNB 
PSEPFB 
PSLSPZ 
PSNSEC 
PSPLA 
PSTER 


oo0020 
000747 
000000 
000020 
oo0022 
000000 
000020 
0000e5 
o00000 
000000 
000002 
00002 
ooo4ey 
000637 
000643 
000600 
000646 
000001 
000632 
000006 
000015 
oo0001 
000006 
ooo! 
ooo001 
000001 
000017 
000014 
900002 
900000 
000000 
oooool 
000004 
000000 
000004 
000000 
000623 


000001 
000002 
000015 
000001 
000015 
000000 
000003 
000001 
000001 
000020 
000014 
000016 
000006 
000016 
ooo00e 
000000 
000003 
000004 
ooo000 
000020 
000000 
000000 
000020 
000010 
ooo011 
000001 
000017 
000045 
000420 
000002 
000062 
000147 
000224 
000323 
000377 
000445 
000505 
000605 
000001 
000002 
oo0014 
000010 


000001 
000010 
000004 
000622 
000043 
000040 
000015 
000001 
000010 
000010 
00002 
000017 
000001 
000001 
000000 
000000 
000000 
000017 
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PAGE 


VTAM AL 


00000! 
0090003 
000000 
000010 
000060 
000001 
000466 
oooort 
000015 
000022 
ooo004 
000010 
000012 
000016 
000004 
000010 
000013 
ooo011 
000010 
000002 
000014 
000020 
000004 
000000 


000020 
000003 
000004 
000004 
000004 
000000 
000020 
000001 
000006 
000020 
000000 
000010 
000001 
000006 
000011 
000002 
000002 
000017 
00020 
000003 
000007 
000010 
000001 
000000 
000020 
000152 
000075 
000334 
000301 
000302 
000070 
000347 
000410 
000055 
000054 
000307 
000400 
000362 
000363 
000352 
000416 
000304 


PPE EEE EE EE HEHE EHS EEE SEES EE SEE EE EEE EEE EEE >> FEE EEE EES EEE SEES OEE EEE ED 


000476 E 
0 ERROR‘ 


PSTERZ 
PSYNC 
PSYNRB 
PSYNTZ 
RBO 
ROPHD 
SIX 
TBENTY 
TBISB 
TBKNI 
TBRSA 
TBRSTS 
TBSIO 
TBS14 
TBSY 
TBS8 
TBTMIN 
TCBSLB 
TCCLNZ 
TCCTA 
TCCTPB 
Tcoccz 
TCECH 
TCIOIB 


TC1D2Z 
TCLLN 
TCNODB 
TCNTOZ 
TCRBC 
TCREFB 
TCRCAZ 
TCROH 
TCRRSB 
TCSTOZ 
TCTCD 
TCTYPB 
TCWBCZ 
TCWMD 
TCWRSB 
TCXMMZ 
TIDSP 
TIOWNB 
TINETZ 
TIODP 
TIOSCB 
TISECZ 
TITU2 
TPFPAB 
TPRPAZ 
TRMLUN 
V$8GLB 
VSCAM 
VSCPL 
VSCRS 
VSDATE 
V$FGLB 
VSIOA 
VSICFG 
VSLCNT 
VSLRSK 
V$LUTI 
VSNCTR 
VSP IMN 
V$SCV 
VSTFC 
vsuTB 


VTS$PTM 


IS ASSEMBLY COMPLI 


000000 
000016 
000010 
000040 
000020 
000000 
000631 
000003 
000017 
000023 
000005 
000006 
000013 
000017 
000005 
000011 
oo001e 
000001 
000004 
000000 
oo0004 
oooo14 
000014 
ooo020 


000006 
000010 
000004 
oooooy4 
000017 
000020 
000006 
900000 
000003 
000004 
000000 
000004 
000011 
000003 
000003 
000636 
000000 
000001 
000003 
000000 
000010 
000000 
000000 
000020 
000016 
o004ee 
000056 
000353 
000076 
000360 
000355 
000306 
000551 
000077 
000313 
000312 
000401 
000413 
000074 
000375 
000314 
000216 


000001 
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A 


PSXMM 
PSYNCB 
PSYNRZ 
RAO 
RB1 
RSTPR 
STATSV 
TBEVNT 
TBISP 
TBKN2 
TBRSB 
TBRSX 
TBSI1 
TBS15 
TBSS 
TBS9 
TBTMS 
TCBSLZ 
TCCON 
TCCTAB 
TCCTPZ 
TCOTO 
TCECHB 
TCIDIZ 


TCLOF 
TCLLNB 
TCNODZ 
TCPCH 
TCRBCB 
TCRBFZ 
TCRMO 
TCROHB 
TCRRSZ 
TCSHL 
TCTCOB 
TCTYPZ 
TCHCA 
TCWMOB 
TCWRSZ 
TEMI 
TIDSPB 
TIOWNZ 
TIOON 
T1OOPB 
TIOSCZ 
TITUL 
TITUeB 
TPFPAZ 
TPHPA 
TWO 
V$BICI 
V$CKB 
VSCROM 
VSCTAD 
VS$DSTB 
VSFLRS 
VS1LOC 
VSJCTM 
VSLER 
VSLSAL 
V$LUT2 
vsoce 
VSPLCT 
VSSLFG 
VSTICP 
VTSGTM 


x 
ETE 


ooool! 
000001 
000003 
000000 
900002 
000003 
000027 
ooo0el 
0000e0 
oo00e4 
600030 
coo000 
coool 
000002 
000006 
000001 
000000 
000003 
000015 
000020 
oooole 
000000 
000001 
000016 


000014 
000010 
000005 
000000 
ooo001 
000007 
000000 
000020 
000010 
000010 
000020 
000004 
000000 
000003 
000004 
000471 
000007 
000000 
000017 
000007 
000002 
000000 
000020 
000015 
000000 
000403 
000315 
000411 
000341 
000300 
000376 
000350 
000141 
000050 
000256 
000345 
000402 
000346 
000305 
000303 
000344 
000472 


000420 
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000002 
000004 
000000 
oocooy 
000463 
000467 
000026 
ooo014 
000016 
000002 
000007 
000001 
000015 
000003 
000007 
000025 
ooo0004 
000000 
000001 
000005 
000000 
000020 
000015 
000000 


000001 
000005 
000000 
000010 
000013 
000000 
000003 
000006 
000000 
000001 
000005 
000016 
000020 
000006 
000012 
00464 
000002 
000000 
000001 
000003 
000007 
000020 
000017 
000000 
000020 
000415 
000414 
000310 
000354 
000351 
000474 
000320 
ooo4le 
000377 
000317 
000316 
000330 
000311 
000361 
000342 
000343 
000000 
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VTAM Al 


oo0000 
ooo001 
000002 
000003 
oooooy 
000005 


000006 
000007 
000010 


000011 
oo001e 
000013 
oo0014 
000015 
000016 
000017 
000020 
000021 


oo00e2 
000023 
oo00e4 
o000e5 
000026 
000027 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000040 
000041 
oo004e 
000043 
ooo044 
000045 
000046 
000047 


000050 
000051 
000052 
000053 
000054 


000152 
000306 
000001 
000017 
000004 


000001 
000002 


100444 
100747 
006017 
000000 
001016 
000011 


006505 
000000 
000200 


006505 
000000 
100000 
003152 
000617 
000000 
000000 
006017 
000013 


006505 
000000 
000011 

000432 
000031 

000031 

000432 
006037 
000003 
015001 

006150 
007400 
006130 
003000 
054571 
025002 
016000 
054606 
016001 
054605 
005101 
054552 


006505 
ooo012 
100000 
000152 
000617 
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1326 
1327 
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EJEC 01 

* THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO! 

. o1 

. V.0.M. PART NO. 92L.1105-016A 

. 

. RELEASED 03-26-73 

vTsocT 

. 

. 
TITLE VTSOCT 
NLIS 
LIST 

. 
EVEC 

. 

. 

. 

. VTSOCT - TERMINAL UNIT OPEN/CLOSE MODULE 

. 

* THIS PROGRAM IS CALLED BY MEANS OF A 

. SCHED CALL TO THE REAL-TIME EXEC. UPON 

. BEING ACTIVATED, IT PROCESSES TERMINAL 

* OPEN AND CLOSE REQUESTS FROM A QUEUE 

e HEADED BY TCSOCM. 

. 

. 

. 

. 
NAME —- VTSOCT, VTSOCY , VTSOCZ 

. 

. 

TRMLUN EQU 106 LUN FOR FILE VTSOFT 

TRMFKY EQU Fe PROTECTION KEY FOR TRMLUN 

NTCTYP EQU 1 NUMBER OF TCM TYPES 

TCDSIZ EQU 1s SIZE OF TCD 

TIBSIZ EQU 4 SIZE OF TERMINAL INDEX BLOCK 

. 

. 

x EQu 1 

8 EQU & 
EXT VSEXEC , TCSOCM, TCSTCD 
ExT TCSFRQ 
ExT VISLTT 

VTSOCT DINTS 
LOAE TCSOCM QUEUE EMPTY ? 01 
JANZ ocTiB1 NO o1 
EXIT YES - EXIT o1 

OCTIB1 OPEN TRMFCB, TRMLUN OPEN TCD FILE 01 
LOAE = OCTIBI1+2 01 
STAT OCTIB1,OCT3A1,OCTIC1 ,OCTICI ,OCT3A1 01 

OCTIC1 LDXE § TCSOCM ADRS OF REQUEST BLOCK o1 
LDA ROPHD , x SET OPEN/CLOSE FLAG, 01 
ANAL 07400 ZERO FOR OPEN REQUESTS, 01 
ERAl 03000 NOT ZERO FOR CLOSE REQUESTS o1 
STA OCFLG o1 
Los RFCB,X ADRS OF OCB 01 
LOA 0,8 01 
STA TEMI MOVE TUID 01 
LOA 1,8 TO TEMP LOCS. o1 
STA TEM2 o1 
INCR OL SET FCB FOR 1ST RECORD o1 
STA TRMFCB+3 OF TERMINAL PROT. FILE 01 

OCTIC2 READ  -TRMFCB,TRMLUN = READ:_INDEX RECORD 01 


00050 
00051 


00052 


00053 
00054 


00055 


00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 


VTAM Al 


000055 
000056 
000057 
000060 


000061 
000062 
oo0063 
oo0064 
000065 
000066 
000067 
000070 
ooo0o7! 
000072 
000073 
000074 
000075 
000076 
000077 
000100 
ooo101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
oooilt 
ooo1le 
000113 
Ooo11y 
000115 
000116 
000117 
000120 
ooole1 
000122 
000123 
ooo1e4 
000125 
000126 
0001e7 
000130 
000131 


000132 
000133 
000134 
000135 
000136 
000137 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000150 
000151 
000152 


000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 


000164 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
000174 
000175 
000176 


000177 
000200 


oooeo! 
000202 


000203 
000204 
000205 
000206 
000207 


000000 
000000 
006017 
900052 


006505 
o000e3 
000050 
000432 
000432 
000432 
000432 
034564 
006020 
000004 
006016 
000655 
144554 
001016 
000105 
006016 
000656 
144550 
001010 
000130 
005344 
001040 
000116 
005021 
006120 
000004 
005012 
001000 
000073 
014540 
001010 
000125 
004347 
054477 
001000 
000050 
014514 
001000 
000432 
006016 
000657 


001002 
000142 
014475 
001016 
ooo14e 
014503 
001000 
000432 
006016 
000657 
150460 
004347 
054453 
006016 
000657 
150475 
054460 


006505 
000051 
100000 
000152 
000617 
000000 
ooooco 
006017 
000155 


006505 
000062 
000153 
000432 
000432 
000432 
000432 
006037 
000000 
001040 
00220 


015015 
134451 


001016 
000207 


015016 
1349446 
001010 
000212 
035000 
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>> 


im 


1342 


1343 
1344 


1345 


1346 
1347 


1348 


1349 
1350 


1351 
1352 


1353 
1354 


1378 
1379 


1380 
138) 
1382 
1383 
1384 
1385 


1386 
1387 


OcTIDI 


ocTibe 


OCTIE! 


ocTiEe 


OCTIFI 


OCT2Al 


ocTeae 


ocTeBi 


LDAE 


STAT 


LOA 
JANZ 


LDA 
JMP 


LDAE 
ANA 
LSRA 
STA 
LOAE 
ANA 


STA 
READ 


LDAE 
STAT 


LOXE 
JXZ 
FETCHA 
ERA 
JANZ 
FETCHA 


ERA 
JAZ 


1388 OCT2C! LDX 
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ocTice+2 


OCTIC2,OCT3AI ,OCT3AI ,OCT3AI ,OCT3AL 


INBUF NO. OF INDICES IN THIS RECORD 
TIBSIZ 
INBUF ,B COMPARE 1ST WORD 
TEM1 OF TUID 
ocT102 NO MATCH 
INBUF +1 ,B COMPARE @ND WORD 
TEMe OF TUID 
OCTIFI JUMP IF MATCH 
DECREMENT COUNT 
OCTIE! JUMP IF END OF RECORD 
POINT TO 
TIBSIZ NEXT INDEX BLOCK 
ocTiol 
INBUF +2 END OF RECORD - 
ocTiEe JUMP IF LAST RECORD 
7 PUT NEXT RECORD 
TRMFCB+3 NO. IN FCB 
ocTice GO BACK TO READ NEXT RECORD 
ERRA TUID NOT FOUND - 
OCT3A1 SET ERROR CODE - GO TO END 
INBUF +2 ,B DEVICE DECLARED DOWN ? 
ocTeal NO 
OCFLG YES - OPEN REQUEST 
ocTeal NO 
ERRB YES - SET ERROR CODE 
OCT3AI GO TO END 
INBUF +2,8 
BRIS 
4 PUT SECTOR AORS FOR TUID 
TRMFCB+3 IN FCB 
INBUF +2 ,B GET DISPLACEMENT OF TCD 
BM177 IN RECORD 


OSPSAV 
TRMFCB,TRMLUN READ IN TCO PROTOTYPE 


OCT2A2+2 
OCT2A2 ,OCT3A! ,OCT3A1 ,OCT3A1,OCT3AL 


TCSTCD SCAN TCD QUEUE FOR TUID 
octed! JUMP IF END OF QUEUE 
X,TCIO1, TCIDIB, TCIOIZ 

TEM! IST WOS OF TUID MATCH ? 
octect NO 

x, TCID2, TC102B, TC102Z YES = 

TEM2 2NO WOS OF TUID MATCH ? 
octece YES 

TCTCD,x NO - GET NEXT TCO 


PAGE 


Oo 


ol 


01 
01 


o1 
oI 
o1 
o1 
a1 
o1 


ol! 
o1 


01 


00065 


00066 


00102 
00103 


00104 
00105 
00106 
00107 
00108 
00109 


00110 
Ooi 


oo1le 


VTAM AL 


000210 
000211 


o0det2 
000213 
000214 
000215 
000216 
000217 


000220 
o002e1 
oo02ee 
000223 
00224 
000225 


00226 
000227 
000230 
000231 
000232 
000233 
000234 
000235, 
000236 
000237 
000240 
000241 
o00242 
000243 
000244 


000245 
000246 
000247 
000250 


000251 
o00ese 
000253 
000254 
000255 
000256 


000257 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000270 
000271 


o00e72 
000273 
000274 
000275 
000276 
000277 
000300 
000301 
000302 
000303 
000304 
000305 
000306 


000307 
000310 
000311 


000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000330 
000331 
000332 
000333 
000334 
000335 
000336 


001000 
000175 


O144i7 
001016 
000251 
014426 
001900 
000432 


O144tt 
001010 
000226 
o1yyel 
001000 
000432 


006037 
000032 
015001 
150463 
006127 
000000 
005311 
005014 
015000 
001010 
000251 
001002 
000246 
014377 
001000 


000432 
014375 
001000 
000432 


014402 
124360 
054362 
006140 
000003 
005014 
000001 


015005 
004350 
150472 
054354 
006140 
000001 
001004 
oo0e7e 
014360 
001000 
000432 


015003 
150463 
002000 
001064 
001002 
000303 
014346 
001000 
000432 
054330 
o0sole 
oe6022 
064332 


015003 
004350 
054317 


146000 
001004 
000320 
014324 
001000 
900432 
O143it 
001016 
000410 
014305 
005002 
004541 
124312 
005111 
004460 
026000 
004460 
001026 
000336 
004350 
150463 


A 
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1389 UMP 
1390 ¢ 

1391 * 

1392 OCTeCe LDA 
1393 JANZ 
1394 LDA 
1395 MP 
1396 * 

1397 * 

1398 OCT2D1 LDA 
1399 JAZ 
1400 LDA 
1401 JMP 
1402 * 

1403 OCT2D2 LDXE 
1404 LDA 
1405 ANA 
1406 ADDE 
1407 OAR 
1408 TAX 
1409 LDA 
1410 JAZ 
it JAP 
42 LDA 
1413 IMP 
1414 OCT2D3 LDA 
1415 

1416 # 

1417 OCT2E1 LOA 
1418 ADD 
1419 STA 
1420 SuBI 
1421 TAX 
1422 TCPROT SET 
1423 FETCHA 
1424 STA 
1425 SUBI 
1426 JAN 
1427 LDA 
1428 JMP 


1429 OCT2EA FETCHA 


1430 JMPM 
1431 JAP 
1432 LDA 
1433 JMP 
1434 OCT2EB STA 
1435, TAB 
1436 LOB 
1437 sTB 
1438 FETCHA 
1439 STA 
1440 sus 
1441 JAN 
1442 LDA 
1443 JMP 
1444 OCT2EC LDA 
1445 JANZ 
1446, LOA 
1447 ar4:) 
1448 LLSR 
1449 ADD 
1450 TAR 
1451 LURE 
1452 LOB 
1453, LLRL 
1454 JBNZ 


1455, LSRA 
1456 OCT2ED ANA 


vTsoct ( 60) PAGE 


ocTeB1 GO BACK TO CHECK IT 

OCFLG TUID FOUND - OPEN REQUEST 7? 
OCT2E1 NO 

ERRC YES - SET ERROR CODE 

OCT3AI GO TO END 

OCFLG TUID NOT FOUND - CLOSE REQUEST ? 
ocTeDe NO 

ERRE YES - SET ERROR CODE 

OCT3AL GO TO END 

TCSOCM 

ROPWD , X GET LUN FOR CCM 

RHW 

VTISLTT GET LTT ENTRY 

0,x TERMINAL CLOSED ? 

OCT2E1 YES 

octeD3 NO - ALREADY OPEN 

ERRB TERMINAL DOWN - SET ERROR CODE 
OCT3AL GO TO END 

ERRC TERMINAL ALREADY OPEN - SET ERROR CODE 
OCT3AL GO TO END 

INBFAD 

Letra COMPUTE BASE OF TCD PROTOTYPE 
TCDAI 

TCCLN DEFFERENCE BETWEEN PROTOTYPE AND ACT TCD 
x 

TCPROT , TCTYP, TCTYPB, TCTYPZ GET TCM TYPE 
TCMTYP 

NTCTYP VALID TCM TYPE? 

OCT2EA YES 

ERRH NO - SET ERROR CODE 

OCT3A1 GO TO END 


TCPROT,TCCLN,TCCLNB,TCCLNZ GET LUN FOR CCM 


LNCTAD 
OCcTeEB 


ERRG 
OCT3AL 


CCMCAD 


DMLTA,B 
LLTBAS 


LLNUM 


0.8 
OCT2EC 


ERRA 
OCT3AL 


OCFLG 


GET CONTRLR TBL AORS FOR CCMO1 


VALID LUN ? 
NO - SET ERROR CODE 


SAVE CONTRLR TBL ADRS 


GET BASE ADRS FOR 
LLT AND SAVE 


TCPROT,TCLLN,TCLLNB,TCLLNZ GET LOGICAL LINE NO. 
SAVE LOG. LINE NUMBER 
VALID LOG. LINE NO. ? 
YES 
NO - SET ERRROR CODE 
GO TO END 
CLOSE REQUEST 


ocTert 
LLNUM 


1 
LLTBAS 


16 
0.8 


16 
OCT2ED 


8 
RHW 


CONVERT TO DISPLACEMENT 
ADD BASE OF LLT 

PLUS ONE 

FINO ENTRY IN LLT 

RIGHT BYTE ? 


NO - LEFT 
HAS LOG LINE BEEN 


01 


VTAM AL 


000337 
000340 
000341 
000342 
000343 
OUU M4 
Gun sty 
A ty 
ong te) 
noo 450. 
000 351 
000452 
000353 
000354 
000355 
000356 
000357 
000360 
000361 
000362 
000363 


000364 
000365 
000366 
000367 


000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000400 


000401 
000402 
000403 
000404 
000405 
000406 
000407 
000410 
ooo4t! 
000412 
000413 
oo0414 
000415 
000416 
000417 
000420 
ooo4el 


ooo4e2e 
000423 


oo04e4 
o004e5 
000426 
o004e7 
000430 
00043! 


000432 
000433 
000434 
000435 
000436 
000436 
000437 
000440 


000440 
oo044t 
o0044e 
000443 
oo044y 
000445 


000446 
000447 


130463 
001010 
000357 
130463 
024270 
16003 
OuottL 
Cn 
ninooo 
NO1O1O 
000357 
001002 
000410 
014266 
001000 
000432 
o14e51 
054235 
o14oll 
150462 
054007 


015003 
150463 
114004 
054003 


006505 
000154 
100000 
003000 
000614 
000000 
000000 
006017 
000372 


006505 
000165 
000370 
000432 
000432 
000432 
000432 
014226 
004241 
005014 
005001 
054220 
006017 
o00ee7 
024216 
006705 
o004ee 


001000 
coo4ey 


006505 


141715 


005002 
064204 
001000 
o00445 


001000 
ooo44e 


100244 
100147 
054175 
001000 
000450 
054167 


001016 
000560 


PPP rr DS > DE D> >>> rrr Dyer 


> >>> 


DP>M>>yy rrr DUDVVM> D> yy DS >m> 


D> DEr> 


>D>>>> 


1457 
1458 


1459 
1460 
1461 
1462 
ING 
Wt 
1465 


1466 


1467 
1468 


1469 
1470 
1471 
1472 
1473 


1474 


1475 
1476 
1477 


1478 
1473, 


1480 
1481 
1482 
1483 
1484 
1485 


1486, 
1487 


1488 
1483, 
1490 
1491 
1492 


1493 
1494 
1495, 


1496, 


VT$OCT ( 61) PAGE 


ERA RHW ASSIGNED TO PHYS LINE ? 
JAZ OcT2eK NO, SO CANNOT BE OPEN 
ERA RHW YES - 
LOB CCMCAD 
ADD DMPTA,B GET ENTRY IN PLT 
TAR 
Tan 
LDA ou HA, CINE GLEN OPENED ? 
JAL OCTeEK NO 
yap ocTer1 Yes 
LOA ERRB LINE HAS BEEN DECLARED DOWN - 
MP OCT3AL SET ERROR CODE AND GO TO END 
OCT2Ek LDA LLNUM 
STA OcTLCB+2 SET LLN IN LCB 
LOA OCT2E3+3 
ANA LHW CLEAR OLD LUN FROM OPEN CALL. 
STA OCT2E3+3 
FETCHA TCPROT,TCCLN,TCCLNB,TCCLNZ GET LUN FOR CCM 
ORA OCT2E3+3 
STA OCT2E3+3 SET LUN FOR CCM IN OPEN CALL 
OCT2E3 OPEN — OCTLCB,0 OPEN LINE WITH WAIT 
LDAE OCT2ES+2 
STAT — OCT2E3,OCT3A1 ,OCT3A1 ,OCT3AI ,OCT3AL CHECK STATUS 
ocTeF! LDA TCMTYP 
LRLA COMPUTE DISPLACEMENT IN 
TAX JUMP TABLE FOR THIS TCM TYPE 
TZA SET FLAG ~ 
STA ERRCOD NO ERRORS IN ROOT SEGMENT 
LOAE = TCSOCH GET ROBLK ADRS 
LoB TCDADR ADRS OF TCD PROTOTYPE IN B 
1UMP«OCT2F3,1 GO TO GET OVERLAY 
. 
* JUMP TABLE FOR TCM OVERLAYS - POSITION IN TABLE IS DETERMINED 
* BY TCM TYPE (FROM PROTOTYPE TCD). 
* 
ocTeF3 UMP OVLAYI OVERLAY FOR TTY TCM 
. 
* END OF TABLE 
. 
OVLAY1 OVLAY 0, 'TT", "YT", "CM" CALL IN TTY TCH 
. 
* 
OCT3Al TZB RETURN HERE IF ERRORS IN 
STB EROVLY ROOT SEGMENT, CLEAR OVERLAY ERROR FLAG 
MP OcT3B1 
vTSOCY BSS ° RETURN HERE FROM OVERLAY IF INT. ENABLED 
MP vTsocz+2 
vT$OCZ BSS t) RETURN HERE TO ENABLE INT. 
EINTS ENABLE INTERRUPTS 
STA EROVLY 
MP OCTGA 
OCT3B1 STA ERRCOD SAVE ERROR CODE 
* 
= DO CHECKING HERE FOR INCREMENTING OF DECREMENTING THE 
e NUMBER OF TERMINALS OPEN ON A LINE, AND IF NECESSARY 
. ISSUE A CLOSE ON THE LINE. 
. 
VANZ = -OCTMI YES - GO TO END 
* 
bl FIND LSD FOR LINE 


O1 00181 
01 00182 


01 00163 
01 00184 
01 00185 
O01 00186 
OL 00187 
01 00188 
O01 00189 


01 00190 


01 00191 
01 oo!92 


01 00193 
01 00194 
01 00195 
01 00196 
01 00197 


01 00198 


01 00199 
01 00200 
01 00201 


01 00202 
01 00203 


01 00204 
0! 00205 
01 00206 
01 00207 
01 00208 
01 00209 


01 00210 
01 00211 


01 oo212 
01 00213 
O01 O0214 
01 00215 
01 00216 


01 00217 
01 00218 
01 00219 


01 00220 


01 00228 
01 00229 


01 00230 


eeeoeeee 


01 00232 
01 00233 
O1 00234 
01 00235 
01 00236 
01 00237 
1 00238 


1 00239 
1 00240 
1 00241 


VTAM AL vTS$OCT ( 62) PAGE 


000450 014160 A 1518 OCTGA LDA LLNUM GET LOG. LINE NO. 01 oo24e 
00451 005002 A 1519 ZB 01 00243 
000452 004541 A 1520 LLSR 1 CONVERT TO OISPLACEMNT 01 00244 
000453 124165 A 1521 ADD LLTBAS ADD BASE ADRS FOR LLT O01 00245 
000454 OO5SI11 A 1522 TAR PLUS ONE 01 00246 
000455 004460 A 1523 LLRL 16 01 00247 
000456 026000 A 1524 LOB 0,8 FIND ENTRY IN LLT 01 00248 
000457 OO446O A 1525 LURE 16 - 01 00249 
000460 001026 A 1526 JBNZ ocTcc RIGHT BYTE ? 01 00250 
000461 000463 R 
Q00462 004350 A 1527 LSRA 8 NO, LEFT 01 00251 
000463 150463 A 1528 OCTGC ANA RHW GET PHYS. LINE NO. 01 00252 
OOO464 024147 A 1529 LOB CCMCAD 01 00253 
000465 126023 A 1530 ADD DMPTA,B ADD BASE ADRS OF PHYS LINE TABLE O01 00254 
Q00466 005111 A 1531 IAR PLUS ONE 01 00255 
000467 005012 A 1532 TAB 01 00256 
000470 036000 A 1533 Lox 0,8 LSD ADRS IN X REGISTER 01 00257 
000471 O1414O A 1534 LDA OCFLG CLOSE REQUEST ? 01 00258 
000472 001016 A 1535 JANZ OCTGH YES 01 00259 
000473 000514 R 
000474 014143 A 1536 LDA EROVLY NO, ERRORS ON OPEN ? 01 00260 
000475 001016 A 1537 JANZ OCTGK YES 01 00261 
000476 000527 R 
1538 FETCHA X,LSNTO,LSNTOB,LSNTOZ NO, INCREMENT 01 00262 
000477 C15020 A 
000500 004350 A 
000501 150474 A 
000502 005111 A 1539 IAR NO. OF OPEN 01 00263 
1540 SETA X,LSNTO,LSNTOB,LSNTOZ TERMINALS ON LINE 01 00264 
000503 004250 A 
000504 135020 A 
000505 004350 A 
000506 150474 A 
000507 004250 A 
000510 135020 A 
00051! 055020 A 
000512 001000 A 1541 UMP OCTMI GO TO END 01 00265 
000513 000560 R 
1542 OCTGH FETCHA X,LSNTO,LSNTOB,LSNTOZ CLOSE REQUEST - 01 00266 
000514 015020 A 
000515 004350 A 
000516 150474 A 
000517 005311 A 1543 DAR DECREMENT NO. OF OPEN TERMINALS 01 00267 
1544 SETA X,LSNTO,LSNTOB,LSNTOZ ON THE LINE 01 00268 
000520 004250 A 
000521 135020 A 
000522 004350 A 
000523 150474 A 
000524 004250 A 
000525 135020 A 
000526 055020 A 
1545 OCTGK FETCHA X,LSNTO,LSNTOB,LSNTOZ NO. OF OPEN TERMS = 0 ? 01 00269 
000527 015020 A 
000530 004350 A 
000531 150474 A 
000532 001016 A 1546 JANZ OCTMI NO 01 00270 
000533 000560 R 
000534 014074 A 1547 LOA LLNUM YES - 01 00271 
000535 054060 A 1548 STA OCTLCB+2 SET LLN IN LCB 01 00272 
000536 014077 A 1549 LDA TCDAODR 01 00273 
000537 006140 A 1550 SuBI TCCLN 01 00274 
000540 000003 A is 
000541 005014 A 1551 TAX 01 00275 
1552 FETCHA X,TCCLN,TCCLNB, TCCLNZ GET LUN FOR CCM 01 00276 
000542 015003 A 
000543 150463 A 
000544 004550 A 1553 LLSR 8 01 00277 
000545 014006 A 1554 LDA OCTL3+3 ADD LUN FOR 01 00278 
000546 004350 A 1555 LSRA 8 ccm TO 01 00279 
000547 004450 A 1556 LURE 8 CLOSE MACRO 01 00280 
000550 054003 A 1557 STA OCTL3+3 01 00281 
1558 OCTL3 CLOSE OCTLCB,O CLOSE LINE FOR TERMINAL 01 ooe62 


000551 006505 
000552 000371 
000553 100000 
000554 003400 
000555 000614 
000556 000000 
000557 000000 


OOOS6O 100444 
000561 100747 
000562 006027 
000563 000416 


1559 OCTMI DINTS 01 00263 


1560 LOBE TCSOCM GET HEAD OF REQUEST QUEUE 01 00284 


>M>> DH>>em>rm>r> >> De>m> 
a 
bs 


000564 036004 LDx RADNR ,B GET ADRS OF NEXT ENTRY 01 00285 
000565 006077 A 1562 STXE TCSOCM PUT INTO QUEUE HEAD 01 00286 
000566 000563 

000567 005004 A 1563 Tzx 01 00287 
000570 076004 A 1564 STx RAONR ,B ZERO THREAD PNTR ON CUR ROBLK 01 oo28s 
000571 064254 A 1565 sTB DUMTCD+TCRQH PUT CUR. RQBLK IN DUMMY TCD 01 ooees 
000572 006030 A 1566 LOXI DUMTCD GET ADRS OF DUMMY TCD 01 00290 
000573 001045 

000574 014040 A 1567 LDA ERRCOD ERRORS IN ROOT SEGMENT ? 01 00291 
000575 002000 A 1568 CALL TCSFRQ GO TO COMPLETION REQUEST PROCESSING 01 o0es2 
000575 000000 

000577 006017 A 1569 LDAE TCSOCM MORE OPEN/CLOSE REQS ON QUEUE 01 00293 
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000600 000566 E 
000601 001010 A 1570 JAZ ocTM2 NO 01 90294 
900602 000607 R 
1571 EINTS YES - 01 o0e95 
Q00603 100244 A 
000604 100147 A 
000605 001000 A 1572 JMP- ocTicl GO BACK 01 00296 
000606 000031 R 
1573 OCTM2 EINTS eeeeeees 
000607 100244 A 
000610 100147 A 
1574 EXIT QUEUE EMPTY, EXIT 
000611 006505 A 
000612 000425 E 
000613 000200 A 
1575 OCTLCB OCB 0,0 01 00298 
000614 000000 A 
000615 000000 A 
000616 000000 A 
1576 TRMFCB FCB 120, INBUF,O,TRMFKY,'VT','$D','FT' 01 00299 
000617 000170 A 
000620 000655 R 
00062! 000306 A 
000622 000000 A 
000623 000000 A 
000624 GI0000 A 
000625 000000 A 
000626 153324 A 
000627 122304 A 
000630 143324 A 
000631 000000 A 1577 LLNUM DATA o 01 00300 
000632 000000 A 1578 OCFLG DATA ) 01 00301 
000633 000000 A 1579 OSPSAV DATA t) 01 00302 
000634 000000 A 1580 CCMCAD DATA ti) 01 00303 
000635 000000 A 1581 ERRCOD DATA 0 01 00304 
000636 000000 A 1582 TCDADR DATA t) 01 00305 
000637 000000 A 1583 TCMTYP DATA 0 01 00306 
000640 000000 A 1584 EROVLY DATA ti) 01 00307 
000641 000000 A 1585 LLTBAS DATA ti) Ot 00308 
1586 ¢ 01 00309 
1587 © ERROR CODES FOR TERMINAL OPEN/CLOSE 01 00310 
1588 * 01 OO311 
000642 033000 A 1589 ERRA DATA 033000 INVALID TERMINAL ID O1 00312 
000643 035000 A 1590 ERRB DATA 035000 TERMINAL DOWN (OPEN) 01 00313 
000644 036000 A 1591 ERRC DATA 036000 TERMINAL ALREADY OPEN (OPEN) 01 00314 
000645 034000 A 1592 ERRE DATA 034000 TERMINAL NOT OPEN (CLOSE) 01 00315 
000646 037000 A 1593 ERRF DATA 037000 REQUESTS STILL PENDING (CLOSE) 01 00316 
000647 002000 A 1594 ERRG DATA 02000 INVALIO LUN FOR CCM 01 00317 
000650 043000 A 1595 ERRH DATA 043000 INVALID TCM TYPE 01 00318 
000651 044000 A 1596 ERRI DATA 044000 NO TEMP STORAGE AVAILABLE 01 00319 
000652 000000 A 1597 TEM! DATA i) 01 00320 
000653 000000 A 1598 TEM2 DATA 0 01 00321 
000654 000655 R 1599 INBFAD DATA INBUF 01 00322 
000655 1600 INBUF BSS 120 01 00323 
001045 1601 OUMTCD BSS TCOSIZ 01 00324 
1602 EVEC 01 00325 
1603 * 01 00326 
1604 01 00327 
1605 SUBROUTINE TO FINO CONTROLLER 01 00328 
1606 TABLE ENTRY, GIVEN THE LOGICAL 01 003e9 
1607 * UNIT NUMBER. 01 00330 
1608 * 01 00331 
1609 * CALLING SEQUENCE... 01 00332 
1610 * 01 00333 
1611 ¢ LOA LUN 01 00334 
1612 * JMPM LNCTAD 01 00335 
1613 # 01 00336 
1614 * RETURN WITH CONTROLLER TABLE 01 00337 
1615 * ADDRESS IN A, B AND X ARE SAVED 01 00336 
1616 * RETURNS WITH A NEGATIVE IF INVALID LUN 01 00339 
001064 000000 A 1617 LNCTAD DATA o 01 00340 
001065 054066 A 1618 STA LNCTI SAVE REGISTERS 01 00341 
001066 O64066 A 1619 sTB LNCcT2 01 00342 
001067 144066 A 1620 SUB NBKLNS LUN BACKGROUND ASSIGNABLE ? 01 00343 
001070 001002 A 1621 JAP LNCTB NO 01 00344 
001071 001103 R 
001072 O20400 A 1622 LOB V$LUTI YES - 01 00345 
001073 016000 A 1623 LDA 0.8 CHECK LUN 01 00346 
001074 144057 A 1624 suB UNCTI 01 00347 
001075 001004 A 1625 JAN LNCTZ JUMP IF INVALID 01 00348 
001076 001151 R 
001077 010400 A 1626 LDA VSLUTI 01 00349 
001100 124053 A 1627 ADD LNCTt COMPUTE LUT ENTRY ADDRESS 01 00350 
001101 001000 A 1628 JUMP LNCTG 01 00351 
001102 001132 R 
001103 054050 A 1629 LNCTB STA LNCTI 01 00352 
001104 144052 A 1630 suB NFGLNS LUN UNASSIGNABLE 7? 01 00353 
001105 001002 A 1631 JAP LNCTO NO 01 00354 
001106 001121 R 
001107 020401 A 1632 LDB v$LuT2 YES - 01 00355 
001110 016000 A 1633 LDA 0,8 CHECK LUN 01 00356 
OOll1t 144042 A 1634 suB LNCTI 01 00357 
001112 001004 A 1635 JAN LNCTZ JUMP IF INVALID 01 00358 
001113 001151 R 
001114 O10401 A 1636 LDA vsLuTe * 01 00359 
001115 124036 A 1637 ADD LNCTI COMPUTE LUT ENTRY ADDRESS 01 00360 
001116 005111 A 1638 IAR 01 00361 


VTAM AL 
001117 001000 A 
001120 001132 R 
OO1le1 054032 A 
001122 020402 A 
001123 016000 A 
OoO11e4 144027 A 
001125 001004 A 
GO1126 001151 R 
001127 010402 A 
001130 124023 A 
001131 OOS1I1 A 
001132 005012 4 
001133 016000 A 
001134 150463 A 
001135 005311 A 
001136 O54015 A 
001137 004201 A 
OO1N4O 124013 A 
OO1141 120355 A 
001142 005012 A 
001143 016002 A 
001144 006150 A 
001145 000077 A 
001146 120360 A 
001147 005012 A 
001150 016000 A 
001151 024003 A 
001152 001000 A 
001153 101064 R 
001154 000000 A 
001155 000000 A 
001156 000145 A 
001157 000117 A 
ooo00e A 
oo0000 R 
ENTRY NAMES 
000000 R VTSOCT 
EXTERNAL NAMES 
000576 E TCSFRO 
000552 E v$ioc 
SYMBOLS 
000044 A APIM 
000012 A B10 
000016 A B14 
000004 A BY 
000010 A B8 
000472 A BMI7 
000473 A BM37 
000476 A BM777 
000454 A BRII 
000460 A BRIS 
000446 A BRS 
000452 A BRO 
000434 A BSI1 
000440 A BSIS 
000426 A BS5 
000432 A BS9 
000000 A CTACT 
000000 A CTAONB 
000020 A CTBICZ 
000006 A CTOVA 
000000 A CTFCBB 
000010 A CTFRCZ 
000000 A CTIOB 
000000 A CTIOAB 
000020 A CTOPHZ 
000004 A CTROB 
000010 A CTRTRB 
000020 A CTSTAZ 
000001 A OCBUFF 
000745 A DISMP 
000020 A DMCWAZ 
00002! A DMLCA 
000000 A OMLTAB 
000020 A OMPTAZ 
000020 A DMSTA 
000000 A OMSWAB 
000020 A DMTPAZ 
000002 A DSLCKO 
000633 R OSPSAV 
000002 A DSUNTN 
000545 A ENAMP 
000643 R ERRB 
000646 R ERRF 
OOO46S A FIVE 
000300 A LC 
000003 A LCASY 
900014 A LCCRCB 
000001 A LCCWBZ 
00006 A LCCHD 
000016 A LCCWIB 
000001 A LCCHPZ 
000006 A LCCWS 
000010 A LCCWTB 
000017 A LCIBAZ 
000000 A LCIBL 


1639 SMP LNCTG 

1640 LNCTD STA LNCTI 

1641 LOB VS$LUT3 
1642 LDA 0.8 

1643 suB LNCTI 

1644 JAN LNCTZ 

1645, LDA VSLUT3 

1646 ADD LNCTI 

1647 IAR 

1648 LNCTG TAB 

1649 LOA 0.8 

1650 ANA RHW 

1651 DAR 

1652 STA LNCTI 

1653 ASLA 1 

1654 ADD LNCTI 

1655 ADD VSOSTB 
1656 TAB 

1657 LDA DSCTAD,B 
1658 ANAL 077 

1659 ADD VS$CTAD 

1660 TAB 

1661 LDA 0.8 

1662 LNCTZ LOB LNCcT2 

1663 UMP * LNCTAD 

1664 LNCTI DATA 0 

1665 LNCT2 DATA tt) 

1666 NBKLNS DATA 101 

1667 NFGLNS DATA 73 

1668 OSCTAD EQU 2 

1669 END vTsocT 
000436 R vTSOCY 000440 R VT$SOCZ 
000600 E TCSOCM 000174 E TCS$TCD 
000402 E VSIOST 000233 E VTSLTT 
oo0002 AB 000000 A BO 
000013 A BIL 000014 A Ble 
000017 A BIS 000002 A Be 
000005 A B85 000006 A 

000011 A B9 000000 A BICNUM 
000475 A BMI77 000477 A BM1777 
000463 A BM377 000467 A BM7 
C0044! A BRO ooo442 A BRI 
000455 A BRI2 000456 A BRIS 
000443 A BRe 000444 A BR3 
000447 A BRE 000450 A BR7 
00042! A BSO 000422 A BSI 
000435 A BSI2 000436 A BS13 
000423 A BS2 000424 A BS3 
000427 A BS6 000430 A BS7 
000634 R CCMCAD 000047 A CLOCK 
000017 A CTACTB 000001 A CTACTZ 
000020 A CTAONZ 000011 A CTBIC 
000003 A CTOST 000000 A CTOSTB 
000000 A CTDVAB 000020 A CTOVAZ 
000020 A CTFCBZ 000014 A CTFRC 
000014 A CTFRE 000000 A CTFREB 
000000 A CTIDBB 000017 A CTIOBZ 
000020 A CTIOAZ 000002 A CTOPM 
000005 A CTRCN 000000 A CTRCNB 
000000 A CTROBB 000020 A CTROBZ 
000010 A CTRTRZ 000010 A CTSTA 
000013 A CTWOS 000000 A CTWOSB 
000002 A DCCNT 000000 A OCRECL 
000444 A DISPIM 000024 A DMCWA 
000017 A DMFPA 000000 A DMFPAB 
Q00000 A OMLCAB 000020 A DMLCAZ 
000020 A DMLTAZ 000023 A OMPTA 
000016 A DMRPA 000000 A OMRPAB 
000000 A DMSTAB 000020 A DMSTAZ 
000020 A DMSHAZ 000015 A OMTPA 
000002 A DSCTAD 000000 A DSOASS 
000001 A OSNAME 000000 A OSNORQ 
000002 A DSPSTI 000002 A DSREWD 
001045 R DUMTCD 000424 A EIGHT 
O00244 A ENAPIM 000640 R EROVLY 
QO0644 R ERRC 000635 R ERRCOD 
000647 R ERRG 000650 R ERRH 
000423 A FOUR 000654 R INBFAD 
000003 A LCABN 000013 A LCABNB 
000012 A LCASYB 000001 A LCASYZ 
000003 A LCCRCZ 000006 A LCCWB 
000006 A LCCWC 000015 A LCCWCB 
000013 A LCCWOB 000001 A LCCWOZ 
000001 A LCCWIZ 000006 A LCCHP 
000006 A LCCWR 000011 A LCCWRB 
000017 A LCCWSB 00000! A LCCHSZ 
000001 A LCCWTZ 000001 A LCIBA 
000000 A LCIBF 000017 A LCIBFB 
000000 A LCIBLB 000014 A LCIBLZ 


vTSOCT « 64) 


LUN OPCOM ASSIGNABLE 
CHECK LUN 
JUMP IF INVALID 
COMPUTE LUT ENTRY ADRS 
GET DST NUMBER 
COMPUTE OST 

DISPLACEMENT 
AOD DST BASE 
GET CONTROLLER TABLE DISPLACEMENT 
AOD BASE ADRS FOR CONTRLR 
TABLE AORS TABLE 


GET ADRS OF CONTRLR TABLE 
RESTORE 8 


RETURN 
000612 E VSEXEC 
00000! A BI 
000015 A B13 
000003 A 83 
000007 A 87 
000421 A BMI 
000464 A BMS 
Go0474 A 
000453 A BRIO 
000457 A BRIY 
000445 A BRY 
000451 A BRE 
000433 A BS10 
000437 A BS14 
000425 A BSY 
000431 A BSB 
000000 A COTADI 
000001 A CTAON 
0900000 A CTBICB 
000020 A CTOSTZ 
oo00l2 A CTFCB 
000010 A CTFRCB 
000010 A CTFREZ 
000007 A CTIOA 
000000 A CTOPMB 
000010 A CTRCNZ 
000005 A CTRTR 
000000 A CTSTAB 
000020 A CTWOSZ 
000747 A OISCLK 
000000 A OMCWAB 
000020 A DMFPAZ 
000022 A DMLTA 
000000 A OMPTAB 
000020 A DMRPAZ 
000025 A DMSWA 
000000 A OMTPAB 
000000 A OSDVDN 
000002 A OSOPCM 
000000 A DSUNAM 
000147 A ENACLK 
000642 R ERRA 
000645 R ERRE 
000651 R ERRI 
000655 R INBUF 
000001 A LCABNZ 
000003 A LCCRC 
000014 A LCCWBB 
000001 A LCCHCZ 
000006 A LCCWI 
000012 A LCCHPB 
000001 A LCCWRZ 
000006 A LCCHT 
000000 A LCIBAB 
000001 A LCIBFZ 
000002 A LCICI 


PAGE 
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ooo010 
000010 
000050 
000007 
ooo000 
000001 
000007 
000017 
oooo0! 
001154 
oo1tel 
000015 
oooo0! 
000015 
000000 
000003 
000017 
000000 
000001 
oooo14 
000010 
000002 
000002 
000000 
000003 
000004 
000000 
000020 
900000 
000000 


000020 
000010 
000011 
ooo001 
000017 
000045 
000420 
000470 
00003! 
000116 
000153 
000220 
000370 
000336 
000432 
oo0si4 
000560 
000001 
000000 
000004 
0090000 
000000 
000010 
o0000e 
ooo01e 
oo004e 
000040 
000015 
000001 
000010 
000010 
000002 
000017 
900001 
000001 
000000 
000000 
000000 
000017 
000002 
000004 
000000 
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00004 
000463 
000467 
ooo011 
000015 
000022 
oo0004 
000010 
oooole 
000016 
000004 
000010 
000013 
000600 
000001 
000004 
000000 
ooo004 
000020 
o000e0 
000015 
000000 
000001 
000637 
000005 


PDPHP SKE rrr rMr rrr rrr rrr rrr 


LciciB 000010 
LCICez 000003 
LCJP 000006 
LCLTB 000017 
LCOBAB 000017 
LCOBFZ 000004 
LCOkE 000000 
LCRCCB 000001 
LCSMBZ 000462 
LNCTI 001155 
LNCTO 001132 
LSABNB 000001 
LSASCZ 000014 
Lscc1 000010 
LscceB 000010 
LSCRCZ 000012 
LSOSF 000017 
LSDSTB 000020 
LSEPFZ 000014 
LSMOD 000016 
LSNTOB 000006 
LSPARZ 000016 
LSRCA 000000 
LSREMB 000020 
LSRRSZ 000001 
LSRTO 000000 
LSSRSB 000020 
LSSWSZ 000016 
LSTHD 000000 
LSHCAB 000020 


LSWEMZ 000016 
LSWTO 000000 
LSxMMB 000002 
LSYNCZ 000020 
LSYNT 000000 
MPMRO 000145 
MT 001156 
NINE 000001 
OcTIC! 000050 
ocTIE! 000125 
octe2a2e 000175 
octedl o002e6 
ocTee3 000272 
OCT2ED 000357 
OCT3A1 000445 
OCTGH 000527 
ocTM! 000607 
PCBSL 00001! 
PCCLNB 000010 
PcctTPZ 000001 
PCLLN 000010 
PCNTOB 000004 
PCPCHZ 000001 
PCTYP 000010 
PCXMMB 000002 
PIM3 000043 
PIM? 000040 
PSABNS 00000! 
PSASYZ 000002 
PSCC1B 000010 
Psccez 000003 
PSDEF 000010 
PSDSFB 000001 
PSOWNZ 000004 
PSEPFZ 000000 
PSMOD 000016 
PSPAR 000014 
PSPLAB 000010 
PSTERS 000001 
PSXMMZ 000003 
PSYNR_ 000000 
PSYNTB 000010 


RAONR 000060 
RHW 000001 
SEVEN 000466 
TBENTY 000003 
TBISB 000017 
TBKN! 000023 
TBRSA 000005 
TBRSTS 000006 
TBS10 000013 
TBSI4 000017 
Tesy 000005 
Tess = o000dt1 
TBTMIN O00012 
TCIOCM 000174 
TCBSLZ 000003 
TCCON 000015 
TCCTAB 000020 
TCCTPZ 000636 
TCOCCZ 000017 
TcOTOZ 00004 
Tc1O1 000000 
Tc102B 000020 
TCLOFZ 000003 
TCMTYP 000005 
TCNTO 000000 


PPPOE SEES EEE EE OSES ESE ES OHO DUDVVVUVUES DE hr rr >> SPP rE rere rer rrr rer rUDS ry >r>ory 
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LCICIZ 
UCIKE 
LCLCB 
LCLT8B 
LCOBAZ 
LCOBL 
LCOKEB 
LCRCCZ 
LHW 
LNCT2 
LNCTG 
LSABNZ 
LSASY 
LSCCIB 
Lsccez 
LSCTA 
LSDSFB 
LSDSTZ 
LSLSP 
LSMODB 
LSNTOZ 
LSPLA 
LSRCAB 
LSREMZ 
USRRT 
LSRTOB 
LSSRSZ 
LUSTER 
LSTHOB 
LSWCAZ 


LSWRS 
LSWTOB 
LSXMMZ 
LSYNR 
LSYNTB 
MPMRI 
NBKLNS 
NTCTYP 
ocTice 
ocTiEe 
ocTeB! 
ocTede 
OCT2EA 
OcTeEK 
OcT3B1 
OCTGK 
ocTme 
PCBSLB 
PCCLNZ 
PCECH 
PCLLNB 
PCNTDZ 
PCSWL 
PCTYPB 
PCXMMZ 
PIMY 
PIM8 
PSABNZ 
PSBADT 
PSCC1Z 
PSCRC 
PSDEFB 
PSOSFZ 
PSEND 
PSLSP 
PSMODB 
PSPARB 
PSPLAZ 
PSTERZ 
PSYNC 
PSYNRB 
PSYNTZ 


TCNOD 
TCNTOB 


oo0002 
000000 
000000 
000001 
000004 
000000 
000004 
000000 
000631 
001064 
001151 
000017 
000013 
000010 
000017 
000000 
00000! 
000016 
000000 
000002 
000014 
000000 
000020 
000016 
000000 
000020 
00001! 
000017 
000020 
000007 


000013 
000020 
000017 
g00000 
000010 
000245 
000461 
000632 
000073 
000130 
000207 
000246 
000303 
000410 
000450 
000551 
ooo4e! 
000001 
900002 
000014 
000010 
000001 
900010 
ooo004 
000040 
000040 
000200 
000000 
000000 
000001 
ooo0le 
00000! 
oo0002 
oo0002 
000000 
ooo00e 
oo000e 
000001 
000000 
000016 
000010 
000040 


000020 
000000 
oo00e7 
000021 
000020 
900024 
000030 
000000 
000014 
000002 
000006 
ooc001 
000000 
000004 
ocoo00 
000001 
000005 
oooo1e 
000014 
000014 
000020 
000006 
000010 
000004 
oo0004 


PPPOE EEE EEE EEE EE EEE EEE EEE PEPE ESE OEE EEE EEE EDO EEE EEE SO VUVUDVDDVE ES rrr re SEPP EEE EEE EEE SPS > EPO UUVUS yr rey ry 


Lcice 
LCIKEB 
LcCLceB 
LCLTBZ 
LCoBF 
LCOBLB 
LCOKEZ 
LCSMB 
LLNUM 
UNCTAD 
UNCTZ 
LSASC 
LSASYB 
LSCC1Z 
LSCRC 
LSCTAB 
LSOSFZ 
LSEPF 
LSLSPB 
LSMODZ 
LSPAR 
LSPLAB 
LSRCAZ 
LSRRS 
LSRRTB 
LSRTOZ 
LSSWS 
LSTERB 
LSTHOZ 
LSWEM 


LSWRSB 


TCNOOB 
TCNTDZ 


ooceco 
000004 
000020 
000005 
000017 
000014 
000003 
900016 
oo0641 
001103 
000017 
000011 
000001 
000015 
000012 
oo00020 
000013 
000016 
000011 
000020 
000014 
000010 
000003 
000010 
000020 
000005 
000000 
000001 
000006 
000000 


000003 
oo0oty 
000016 
000010 
000045 
000345 
001157 
oooo1t 
000105 
ooo14e 
oo0212 
000251 
000320 
o004ee 
000463 
000614 
ooo4ey 
000000 
000014 
000001 
000002 
000000 
000001 
000001 
000041 
000040 
000003 
000013 
000001 
000000 
000003 
000003 
000011 
000016 
000011 
000003 
000002 
000002 
000011 
ooo001 
000003 
ooco00 


000002 
000003 
000026 
000014 
000016 
000002 
000007 
900001 
000015 
000003 
000007 
000025 
000576 
ooo011 
000010 
000002 
900014 
000000 
oooc00 
000001 
000016 
oooory 
oooc10 
000004 
000004 


PPP rE Err EEO MSE ESE EHH >> >> SEP H ESE EE >>> ESE >>> E> HEE E> UIUVVDDVUVDVUS > >>> > SHOPS rrr yr rrr rrr ryer > rVVS Error rr 


65) 


PAGE 


VTAM Al 
000000 A TCPCHB 
000017 A TCRBCB 
000020 A TCRBFZ 
000006 A TCRMD 
000000 A TCROHB 
000003 A TCRRSZ 
000004 A TCSWL 
000000 A TCTCDB 
000004 A TCTYPZ 
00001! A TCWCA 
000003 A TCWMOB 
000003 A TCWRSZ 
o0065e R TEMI 
oc0004 A TIBSIZ 
000002 A TIDWN 
000000 A TINETB 
00000! A TIODNZ 
000003 A TIOSC 
000007 A TISECB 
000020 A TITUIZ 
000017 A TPFPA 
000000 A TPRPAB 
000020 A TPWPAZ 
000422 A TWO 
000056 A V$BICI 
000353 A V$CKB 
000076 A VSCRDM 
000360 A VS$CTAD 
000355 A VSDSTB 
G00306 A VSFLRS 
000552 E vSIOC 
000077 A VSJCTM 
000313 A VSLER 
000312 A VSLSAL 
000401 A v$LUT2 
000413 A VSOCB 
000074 A VSPLCT 
000375 A VSSLFG 
000314 A VSTUCP 
000233 E VTSLTT 
000001 A x 

0 ERRORS ASSEMI 


000010 A TCPCHZ 
000001 A TCRBCZ 
000007 A TCRCA 
000000 A TCRMDB 
000020 A TCRQHZ 
000010 A TCSTO 
000010 A TCSWLB 
000020 A TCTCDZ 
000004 A TCWBC 
000000 A TCWCAB 
000003 A TCWMDZ 
000004 A TCXMM 
000653 R TEM2 
oo0dd2 A TIOSP 
000017 A TIOWNB 
000020 A TINETZ 
000003 A TIOOP 
000007 A TIOSCB 
000010 A TISECZ 
00000! A TITUe 
000000 A TPFPAB 
000020 A TPRPAZ 
000617 R TRMFCB 
000403 A VSIMIN 
000315 A VSBTB 
000411 A VSCKIT 
00034! A VSCROR 
000300 A VSCTL 
000376 A VSERFG 
000350 A VSFREE 
000402 E VSIOST 
000050 A V$JNAM 
000356 A V$LIT 
000345 A VSLUNT 
000402 A V$LUT3 
000346 A VSOPCF 
000305 A V$PTVB 
000303 A v$TB 
000344 A VSTMN 
900000 R vTSOCT 
000420 A ZERO 
IBLY COMPLETE 


oo0001 
000013 
000000 
000003 
000006 
oo0000 
000001 
ooo005 
000016 
oo00e0 
000006 
oo001e 
000471 
ooco00 
ooooo! 
000003 
oo0000 


000010 
000000 
900000 
000020 
000016 
000306 
000415 
ooo414 
000310 
000354 
000351 
000612 
000320 
000412 
000377 
000317 
000316 
000330 
000311 
000361 
000342 
000343 
000436 
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TCPROT 
TCRBF 
TCRCAB 
TCRMDZ 
TCRRS 
TCSTOB 
TCSWLZ 
TCTYP 
TCWBCB 


TIODPB 


T1OSCZ 
TITUL 
TITUeB 
TPFPAZ 
TPWPA 
TRMFKY 
V$BFC 
VSBVN 
VSCKPT 
VSCRM 
VSCTMS 
VSEXEC 
VSIM 
V$JCB 
V$JOP. 
VSLLUP 
V$LUP 
VSMPM 
VSOPCL 
V$SCTL 
VSTBGT 
VSTMS 
VvTSOCY 


ooo004 
000000 
000020 
ooooo! 
000006 
oo0020 
000000 
000010 
00000! 
000006 
000011 
oo0002 
000464 
000007 
000000 
000017 
000007 


000002 
000000 
000020 
000015 
000000 
000152 
000075 
000334 
000301 
000302 
000070 
000347 
000410 
000055 
000054 
000307 
000400 
000362 
000363 
000352 
000416 
000304 
000440 
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1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO2 00001 
2 © 02 00002 
3 .¢ V.D.M. PART NO. 92L1105-019A 02 00003 
4 ¢ 02 00004 
5 ¢ RELEASED = 03-26-7 02 00005 
6 Cc 02 00006 
7 ¢ 02 00007 
ec ADVANC 02 00008 
a 02 00003 
10 C¢ 02 00010 
i TITLE ADVANC 02 00011 
12 SUBROUTINE ADVANC 

13. C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINE 

14 C 

$5: ¢ V.D.M. PART NO. 92L1105-023A 

16 C 

i? © RELEASED = 03-26-7 

18 Cc 

19 ¢ 

20 ¢ COMMON 

21 ¢ 
22 ¢ 
23 C POeeeeeaeeneeneessessseseeesee sees eee seen eee eeeeseeeeeEseeeseeseeeees 
ay ce DECLARE COMMON CELLS . 
PRM ISIEIESreerereereerrerrerrrrr irre rr errerrerrrri erie ere ere ester eerie yy 

26 COMMON ITEST , Pl . Pe . BUF , INCHAR, SECTOR, IN 

27 COMMON OUT , VTSOFL, VTSOFT, BLANK , LSDN , LSD , TUION 
28 COMMON TIB , TCD  , LINE. LNCNT , LNMAX | PGCNT 
29 COMMON OFLFCB, DFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTDSP 

30 INTEGER PI . Pe , OUT _, VTSOFL, VTSOFT, BLANK , PGCNT 

31 INTEGER BUF (160), SECTOR(120), LSO_ ¢ 5), TUION( 4) 
32 INTEGER TIB. ¢ 4), TCD ¢ 5), OFLFCB( 13), DFTFCB( 13) 

35 Ce ENO OF COMMON DECLARATIONS . 

BGC theeeeeeesenseearenes esse seen ese ese SSeS SSS ES ee eeeeeEeeESeeeseeeseees 
37 Cc 
38 C THIS ROUTINE ADVANCES THE BACKUP POINTER, P2, UNTIL 
aa iC IT IS EQUAL TO P1. ADVANC IS CALLED WHENEVER A TEST IS 
40 C SUCCESSFUL. INPUT CHARACTERS ADVANCED OVER ARE BLANKED OUT 
41 C 
42 C------ IF BACK UP _POINTER(P2) IS UP WITH POINTER P1, SIMPLY RETURN 
43 IF (Pl - P2) 20, 20, 30 
44 
45 POINTERS ARE EQUAL, SO RETURN 
46 RETURN 
47 02 00021 
48 C------ ELSE, BLANK A COLUMN ANO TEST AGAIN 02 00022 
439 30 BUF (P2) = BLANK seeeeees 
50 ee = Pee 2 02 o0024 
51 GO TO 10 02 00025 
52 ENO 02 00026 


ENTRY/COMMON BLOCK NAMES 
000051 R ADVANC 
000646 C COMMON 

EXTERNAL NAMES 

SYMBOL TABLE 
000050 R so000} 

1 


000015 
ooce17 
000046 
000036 
000047 
QO ERROR‘ 


000001 Cc 
00002 C Pe 
000435 C OUT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C 
000244 C SECTOR 
ooo44e C L 
000447 C TUIDON 
000453 C TIB 
000457 C TCD 
000607 C OFLFCB 
000624 C OFTFCB 
oo0464 CLINE 
000003 R 10 
ooo000 C_ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSDN 
000604 C_ LNCNT 
000605 C LNMAX 
000641 C IVALUE 
oo064e C LFILE 
000643 C NXTSCT 
000644 C IDTSCT 
000645 C IDTOSP 

R 

R 

R 

R 

R 

IS 


$1 
COMPILATION COMPLETE 
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1 EVEC 01 00001 
2 * THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO! 00002 
3e 01 00003 
ye v.0.M. PART NO. 92L1105-021A 01 cOo004% 
5* 01 00005 
6° RELEASED 03-26-73 01 00006 
7° 01 00007 
ee 01 00008 
g° BITSET 01 00009 
10° 01 00010 
ive 01 00011 
12 TITLE BITSET 01 00012 
[3 teccccensccccenesceseseeesseccegsesseccssseussessessssssesesssssseeeess 01 00013 
14 * 01 00014 
15 * TITLE - BITSET SUBROUTINE * 01 00015 
16 * * Ot 00016 
17 * FUNCTION - * 01 00017 
18 * ENTRY POINT ‘BITSET' SETS BITS IN A DATA WORD. * 01 00018 
19 ENTRY POINT ‘BITGET' GETS BITS IN A DATA WORD. * 01 00019 
20 * * 01 00020 
21 * CALLING SEQUENCE - * 01 00021 
22* CALL BITSET(WORD, LBIT, RBIT, VALUE) * 01 00022 
23 * SETS THE FIELO SPECIFIED BY LBIT-RBSIT IN WORD TO VALUE * 01 00023 
24+ * 01 00024 
e5¢ EXAMPLE - CALL BITSET(I, 5, 3, 4) SET IT TO OCTAL XXXX4X * 01 00025 
26° * 01 00026 
27* CALL BITGET(VALUE, LBIT, RBIT, WORD) * 01 00027 
28 * RETRIEVES CONTENTS OF FIELD AND PLACES IN VALUE. * 01 00028 
ege * 01 00029 
30.* EXAMPLE - CALL BITGET(I, 5, 3, 20) SETS I=Z * 01 00030 
31° * 01 00031 

e . 

. 

. 


32 * ENTRY POINTS - BITSET(ALIAS BITPUT) AND BITGET 01 00032 

01 00033 

01 00034 

01 00035 

we eel 01 00036 

01 00037 

eeeeeees eerceee 01 00038 

39 NAME BITSET STORE BIT ENTRY POINT 01 00039 

40 NAME BITGET FETCH BIT ENTRY POINT 01 00040 

4“) ExT $SE CHAIN FOLLOWING ROUTINE 01 00042 

YZ CORO eeer eee see EHH THEO OE TOH EHEC OSES EET EDECOEHHESOEEHHERSEOESEHSEESS 01 DODHY 

ay # ENTRY POINT BITSET, SET ENTRY TYPE FLAG AND GO TO SETUP ROUTINE* O1 00045 

YR COe near eee seer eee sere ee seeeenesesessesecrecesesereseneeaaseeeeeeeesH® 0] ODOUR 

000000 000000 A 46 BITSET ENTR ENTRY CELL 01 00047 

00000! 006017 A 47 LOAE BITSET PICK UP ENTRY CELL 01 00051 
000002 000000 R 

000003 005012 A 48 TAB SET TYPE ENTRY FLAG TO STOW 01 00052 

000004 001000 A 49 MP SETUP GO TO SETUP ROUTINE 01 00053 
000005 000103 R 

51 01 00055 


52° ENTRY POINT BITGET, SET ENTRY TYPE AND GO TO SETUP 01 00056 
53 PESOS HO CEH EHSORESEREESE SEE SEE EHH HESOEHOROCOSESES HED EOS or 00057 
000006 000000 A 54 BITGET ENTR ENTRY CELL 01 00058 
000007 005002 A 55 1ZB SET TYPE ENTRY FLAG TO FETCH 01 00061 
000010 006017 A 56 LDAE = BITGET. PICK UP ENTRY CELL 01 00062 
000011 000008 R 
000012 001000 & 57 MP SETUP GO TO SETUP 01 00063 
000013 000103 F 
58 EVEC 01 00064 
59 Prrrrreerrr rt titis) 
60 
61 
000014 R62 . TOP OF COMMON CODE 
000014 034076 A 63 LOx LBIT LOAD PARAMETER ADDRESS 
000015 015000 A 64 LDA 0, LOAD LEFT BIT NUMBER 
000016 150472 A 65 ANA cis TAKE MODULOUS WORD SIZE 
000017 054073 A 66 STA LBIT SAVE IN LOCAL CELL 
000020 034073 A 67 LOX RBIT LOAD PARAMETER ADORESS 
000021 015000 A 68 LOA 0.x LOAD RIGHT BIT NUMBER 
000022 150472 A 69 ANA cis TAKE MOOULOUS WORD SIZE 
000023 054070 A 70 STA REIT SAVE IN LOCAL CELL 
000024 034070 A 71 LDXx SRC LOAD SOURCE ADORESS 
000025 015000 A 72 LOA 0.x LOAD SOURCE WORD 
000026 054066 A 73 STA SRC SAVE IN LOCAL CELL 
5 asecccssccccccccccsessecesesees® 01 0008! 
76 
77 
000027 014063 A 7 LDA LeIT LOAD LEFT BIT NUMBER 01 00084 
000030 144063 A 79 SUB RBIT MINUS RIGHT BIT NUMBER 01 00085 
000031 120421 A 80 ADD C1 PLUS 
000032 150472 A BI ANA C15 MODULOUS WORD SIZE 
000033 054057 A 62 STA SIZE SAVE 
GY teeeeeenceecccereeveevenseeseeseseseueesees 
85 * SETUP SHIFT INSTRUCTIONS 
BG teccccececevcccccecevecseesecccscesececsccceccessessssessssssssessseess OL 00092 
000034 014057 A 87 LOA RBIT LOAD RIGHT BIT LOCATION 01 00093 
000035 114066 A 88 ORA LSCON OR IN OP CODE Ot 00094 
000036 054067 A 89 STA LSHIFT AND USE AS EXECUTE OPERAND 01 00095 
000037 014054 A 90 LOA RBIT LOAD RIGHT BIT LOCATION 01 00098 
000040 114064 A 91 ORA RSCON OR IN OP CODE 01 00097 


VTAM AL 


000041 
oo0004e 
000043 
oooo44y 


000045 
000046 
000047 
000050 
000051 
oo000se 
o00053 


000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 


000066 
000067 
000070 
000071 
000072 
000073 


000074 


000075 
000076 
000077 
000100 


000101 
000102 


000103 
000104 
000105 
000106 
000107 
000110 
ooottl 
000112 
000113 
000114 
000115 


000116 
000117 
000120 
000121 
000122 
000123 


ooo1e4 
o001e5 
000126 
000127 
000130 


054065 
014050 
114060 
054001 


o1o4el 
000000 
005311 
001016 
000053 
010461 
054054 


014040 
003020 
000127 
154050 
054034 
001020 
000074 
003000 
000126 
054027 


014041 
003000 
000126 
005211 
001000 
000075 


005001 


034014 
155000 
114015 
055000 


001000 
000000 
000102 


054002 
001000 
000107 
000000 
002000 
000000 
900004 
000000 
000000 
000000 
000000 
000113 
006017 
000106 
006057 
000102 
001000 
ocoo14 


000001 
00002 
000001 
004240 
004300 
000000 
000000 
oo0000 
o004e1 
000472 


>r>p 
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> >>> 
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STA RSHIFT AND USE AS EXECUTE OPERAND 

LDA SIZE RELOAD FIELO SIZE 

ORA LSCON OR IN OP CODE 

STA MSHIFT USE AS MASK SHIFT 

EJEC 
Preeerereerererrrerrrcrrrrrrert reer errr ere tere rrr 
. SETUP BIT MASK, RIGHT JUSTIFIED (2**SIZE)-1 . 
Preerereereerrrerrrrcirrrerrrerererrrerrrrierrrre rir rrr t rrr tir 

LDA C1 LOAD SINGLE BIT 
MSHIFT DATA 0 SHIFT LEFT BY WIDTH 


DECR oll MINUS ONE 
JANZ STMASK SKIP IF MASK IS NOT NULL 
LDA ONES ELSE PICK UP SPECIAL ALL ONES MASK 
STMASK STA MASK SAVE AS MASK 
PURSE ECO COOCOOCCOOOOerecerecrcrcrr ret ir iri retry 
a ORIENT SOURCE WORD TO PROPER FORM * 
CREO ORE E Ee OOOO ESE SSO HSE ESSESE SESS SEES ESS ESESSESEOESESSOOSEOESSESOEES 
LDA SRC PICK UP SOURCE WORD 
xBZ RSHIFT IF FETCH, SHIFT RIGHT 
ANA MASK MASK OUT EXTRA BITS 
STA SRC SAVE RESULT 
J8Z MAIOIO SKIP IF FETCH CASE 
XEC LSHIFT SHIFT SOURCE INTO PLACE 
STA SRC SAVE SHIFTED RESULT 
* 
* SETUP INVERSE MASK ON STORE CASE 2) 
POeeerereererrerrererrrrerrerrrreririrri iy one 
LDA MASK PICK UP MASK 
xXEC LSHIFT SHIFT LEFT INTO PLACE 
COMPL, oll INVERT ALL BITS 
UMP MALO20 SKIP TO MASK DATA WORD 
EJEC 
SORE RARE ODE E OOO R ESSERE OSE SESS ESEEESESER DEEDES 


RSE MASK IS ALL ZERO 


MAIO10 ZERO SET MASK TO NULL 


. eee 


. NOW MASK OUT DESTINATION AND OR IN SOURCE 


SOOT O OORT E NRO R OER TESTO EEO O HECHT SHOE EDS 


MAIO20 LDX DEST LOAD DESTINATION ADDRESS 
ANA 0,x MASK OFF PREVIOUS FIELD CONTENTS 
ORA ‘SRC OR IN NEW DATA 
STA 0,1 AND RESTORE 


POPS O CEST EEE OSES EEER OES ERIE OPES EO EES EEHS EOE EHS SES ONOOED 


wy ALL DONE, RETURN ~O CALLER bg 
. . 


SOOOO ORE E REESE EOE OESE REDD ES EOE SEES 


JMP ti) IESTORE REG P 
SAVEP EQU ea] 
EJEC 
Preeerrreeeerrrririrriii yy 
* THIS CODE SETS UP FOR EXECUTION BY CALLING 
POOP P SUS eSECPCeerrerreririrtriilirir iii iris) 
SETUP STA SETO10 SAVE PARAMETER ADDRESS 
JMP SETO20 SKIP OVER CONSTANT 


SETOIO DATA 


0 PARAMETER LIST ADORESS 
SETO20 UMPM = $SE 


RESOLVE INDIRECT ADORESSES 


DATA 4 FOUR PARAMETERS 
DEST DATA ti) DESTINATION ADORESS 
LBIT DATA oO LEFT BIT IN FIELD 
RBIT DATA i) RIGHT BIT IN FIELD 
SRC DATA O SOURCE WORD ADDRESS 
SIZE QU LBIT 
LDAE SETOIO LOAD ADJUSTED RETURN ADDRESS 
STAE SAVEP AND SAVE IN RETURN CELL 
JMP- MAIN BRANCH TO MAINLINE 
EJEC 


CONSTANTS AND WORK AREAS 


PORNO RCE Ee DEORE OREO REESE SESE SSE REEE SS ESSE ESSER OSESROSTOOHESSSSSESED OSES 
A EQu 1 EQUATE FOR A REGISTER 

B EQu e EQUATE FOR B REGISTER 

x EQu 1 EQUATE FOR X REGISTER 

LSCON LRLA (i) SHIFT LEFT OP CODE CONSTANT 
RSCON ASRA 0 SHIFT RIGHT OP CODE CONSTANT 
LSHIFT DATA 0 GENERAL SHIFT LEFT 

RSHIFT DATA Q GENERAL SHIFT RIGHT 

MASK DATA oO MASK CELL 

cl EQu o4el LOW-CORE CONSTANT ONE 

cis Equ 0472 LOW-CORE CONSTANT 017 


o1 


00145 


eeeeneee 


00147 
00154 


VTAM AL 


000131 
000132 
000133 
000134 


000135 
000136 
000137 
000140 
000141 
oooi4a 
000143 


000144 
000145 
000146 


000147 
000150 
00151 
000152 
000153 
000154 


OO04G1 A 


014020 
120423 
005012 
030423 


>>rr> 


015070 
056000 
015050 
056004 
005322 
005345 
001002 


000135 
001000 
000000 


>>r>D Srrrrrr 


000146 
002000 
000110 
ooo001 


001000 
000131 


D> >M>D 


000070 
000050 
000054 
000423 


>>>> 


ENTRY NAMES 


000006 R BITGET 
EXTERNAL NAMES 
000150 E $SE 
SYMBOLS 

000150 E $SE 
000000 R BITSET 
000423 A FOUR 
000074 R MAIOIO 
000046 R MSHIFT 
“000127 R RSHIFT 
000103 R SETUP 
000131 R SYSIO 
000070 A V$DATE 


BITSET ( 70) PAGE 


175 ONES EQU 0461 LOW-CORE CONSTANT 0177777 
176 EvEC 
177 NAME SYSGET SET NAME OF ENTRY POINT 
17D Stee seeseese erases sees eee ERE SESS SEES ESSE ESESSSSESOSENEHE SED OOESEEEOES 
180 * . 
181 * TITLE - ROUTINE TO FETCH LOW-CORE JOB INFORMATION . 
182 * . 
183 * PURPOSE - TO ALLOW ACCESS TO LOW-CORE LINE COUNT. JOB NAME, . 
184 * AND CURRENT DATE. . 
185 * * 
186 * CALLING SEQUENCE - * 
187 * INTEGER WORK(9) . 
188 * CALL SYSGET (WORK) . 
189 * . 
190 * ENTRANCE PARAMETERS - . 
191 * NAME OF NINE-HORD VECTOR IN FOLLOWING FORMAT - . 
192 * 1 VSDATE 4 VSDATE+3 7 VSUNAM+2 . 
193 * 2 VSDATE+1 5 VSUNAM 8 VSUNAM+3 . 
194 * 3 VSDATE+2 6 VSUNAM+1 9 VSLCNT * 
195 * . 
196 * ERROR CONDITIONS - NONE. . 
197 * . 
19 *O0ereneeneeeeeeee eee eeee eee sees eee ee eee SEH Eee SS eSeS OREO ee HEHE EOE eeOeS 
20D teteeeennenceecceescescceeseeseeeesseeseneneeeeeseees eeeeveeees 
201 * SETUP FOR LOOP . 
eeeee . 
203 SYSIO LOA SYSVCT PICK UP OUTPUT VECTOR ADDRESS 
204 ADD FOUR POINT TO FIFTH WORD 
205 TAB PLACE IN 8 REGISTER 
206 Lox FOUR PICK UP COUNT 
seeeeee seee 
209 + ENTER WORD MOVE LOOP FOR FIVE ITERATIONS . 
PIP PEESESESESTTITTITITPPTITeTeI Tr rrireiriririrriterrrr reer etter ie) 
211 SYS20 LDA VSDATE ,X LOAD ELEMENT OF DATE 
2i2 STA 0.8 STOW IN OUTPUT VECTOR 
213 LOA VSJNAM ,X LOAD ELEMENT OF NAME 
214 STA 4,8 STOW IN OUTPUT VECTOR 
215 DBR BACK UP OUTPUT POINTER 
216 DECR 045 DECREMENT COUNT AND COPY TO A REGISTER 
217 JAP sys20 CONTINUE WHILE REG A IS NON-NEGATIVE 
218 MP t) ELSE RETURN TO CALLER 
seeeeneeeeees seneeee . 
221 * MAJOR ENTRY POINT IS HERE . 
222 FHOOHH ECC R DOOR TEE O OE OREHOEEEEEESEEEEE EEE ODSSOSESER SEDO OSESOORES ETE OEDE 
223 SYSGET EQU e-1 CALL ENTRY POINT 
224 CALL s$SE,1 RESOLVE INDIRECT THREAD 
225 SYSVCT BSS 1 ADDRESS OF OUTPUT VECTOR 
226 MP SYS10 JUMP TO SETUP LOOP 
228 seteeeee AJ 
229 * 
230 eee . 
231 VSDATE EQu 070 LOCATION OF DATE VECTOR 
232 VSUNAM EQU 050 LOCATION OF JOB NAME VECTOR 
233 V$LCNT EQU 054 LOCATION OF LINE COUNT 
234 FOUR EQU 0423 LOCATION OF CONSTANT FOUR 
236 END 
000000 R BITSET 000146 R SYSGET 
000001 A A 000002 A B 000006 R BITGET 
000421 A C1 000472 A C15 000112 R DEST 
000113 RLBIT 000124 R LSCON 000126 R LSHIFT 
000075 R MAI1020 000014 R MAIN 000130 R MASK 
000461 A ONES 000114 R RBIT 000125 R RSCON 
000102 R SAVEP 000106 R SETOI0 000107 R SETOZO 
000113 RSIZE 000115 R SRC 000053 R STMASK 
000135 R SYS20 000146 R SYSGET 000152 R SYSVCT 
000050 A VSJNAM 000054 A VSLCNT 000001 A Xx 


© ERRORS ASSEMBLY COMPLETE 
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THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 8Y VARI 
v.0.M. PART NO. 92L1105-022A 
RELEASED 


CLEAR 


ao0000%N0000 


TITLE CLEAR 
SUBROUTINE CLEAR 
THIS 1S A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARI 
V.0.M. PART NO. 92L 1105-0234 
RELEASED 


. DECLARE COMMON CELLS 


SOR OR EE OOOH SESE ROTH EES SEES EE ESOS ESSE SESS ESSERE TOES 


N20NNRDNgND0000 


COMMON ITEST , PI » Pe » BUF . INCHAR, SECTOR, IN 
COMMON OUT » VTSOFL, VTSOFT, BLANK , LSDN , LSD » TUION 
COMMON TIB » TCO » LINE —, LNCNT , LNMAX , PGCNT 


COMMON DFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTDSP 
INTEGER PL » re » OUT » VTSOFL, VTSOFT, BLANK , PGCNT 
INTEGER BUF (160), SECTOR(120), LSD ¢ 5), TUION ( 4) 
INTEGER TIB « 4), TCO ( 5), OFLFCB( 13), OFTFCB( 13) 


INTEGER LINE ( 80) 


cee veee 
c 
c 
c 
¢ THIS ROUTINE IS CALLED ONCE TO INITIALIZE THE NOL 
INTEGER FCBKEY, FCBNAM(4) 
DATA FCBKEY /2H F/ 
DATA FCBNAM(1), FCBNAM(2) /2HVT, 2H$D/ 
DATA FCBNAM(3), FCBNAM(4) /2@HFL, @HFT/ 
c 
Gaaaees INITIALIZE THE INPUT BUFFER AND POINTERS 
BLANK = 160 
00 10 1 = 1, 160 
10 BUF (I) = BLANK 
Pls} 
Peel 


INCHAR = BLANK 
INITIALIZE COMMON DATA CELLS 


CALL SYSGET (SECTOR) 
LNMAX = SECTOR(9) 
LNCNT = LNMAX 

PGCNT = 0 

IN=4 
OUT = § 
VTSOFL 
VTSOFT 
NXTSCT 
1OTSCT 
IDTOSP = 120 
ITEST = 1 
LFILE = 0 


aeee 
on-- 
=o 


~INITIALIZE THE SECTOR BUFFER AND RMD FCBS 
00 80 I = 1, 13 
OFLFCB(I) = 0 


80 OFTFCB(I) = O 
DO 90 1 = 1, 120 

90 SECTOR(I) = 0 
00 100 I = 1 


2 
OFLFCB(1+7) = FCBNAM(I) 
OFTFCB(I+7) = FCBNAM(I) 
100 CONTINUE 
OFLFCB(10) = FCBNAM(3) 
OFTFCB(10) = FCBNAM(4) 


pean SET UP KEY FIELD IN FCB BEFORE OPEN 
OFLFCB(3) = FCBKEY 
OFTFCB(3) = FCBKEY 


-REQUEST OPEN FOR FILE VTSOFL 
CALL VSOPEN (VTS$OFL, 106, OFLFCB, 1) 


Cc 
C-ss==4 ‘CHECK FOR AT LEAST 11 SECTORS IN FILE 
IF (OFLFCB(7) - DFLFCB(6) - 11) 160, 108, 108 
c 
Goasaa= INITIALIZE FILE WITH 11 SECTORS OF ZEROS 


108 DO 110 ISECT = 1, 11 
DFLFCB(4) = ISECT 
WRITE (VT$OFL) SECTOR 


GC At 


AN DATA MACHINESOG 00001 
06 00002 
06 00003 
06 00004 
03-26-7 06 00005 
06 00006 
06 00007 
06 00008 
06 00009 
06 00010 
06 00011 


06 00012 
AN DATA MACHINES**##ee88 
aoe 


03-26-7 


seesecenseesnes 


PROCESSOR 


eeccesce 
06 00069 
06 00070 


PAGE 


VTAM Al BITSET 
95 DFLFCB(4) = ISECT 
96 IF CIOCHK(I)) 430, 110, 430 
97 «#4110 CONTINUE 
98 LFILE = 1 
99 Cc 
100: ‘Gateqs= NOW GO TO HANDLE FILE VTSOFT 
101 GO TO 200 
102 C 
193° €-=+=-= AT THIS POINT, FILE VTSOFL IS NOT LARGE ENOUGH 
104 160 CONTINUE 
105 CALL _HEADER(2) 
106 WRITE (OUT, 169) OFLFCB(10) 
107 169 FORMAT (12HO**FILE VT$D, A2, 10H TOO SMALL) 
108 IF (TOCHK(I)) 420, 180, 420 
109 C 
EIR Coa=2) MAKE FCB APPEAR TO BE CLOSED (TO PREVENT FUTURE USE) 
ne 180 OFLFCB(5) = 0 
it Cc 
BZ) Ceaas==| REQUEST OPEN FOR FILE VTSOFT 
114 200 CONTINUE 
115 CALL VSOPEN (VTSDFT, 106, DFTFCB, 1) 
16 C 
UY (Cee~o=-| NOW CHECK FOR AT LEAST 2 SECTORS 
118 IF (DFTFCB(7) - DFTFCB(6) - 2) 260, 210, 210 
119 C 
ted) (Cassa INITIALIZE FILE VTSOFT, WITH ONE ZERO SECTOR 
121 210 OFTFCB(4) = 1 
122 WRITE (VTSOFT) SECTOR 
123 OFTFCB(4) = 1 
124 IF CIOCHK(T)) 440, 250, 440 
125 250 LFILE = 2 
1286 C 
127) Co-e9=< GO TO NEXT INITIALIZATION STEP 
128 GO TO 300 
leg C 
130. Coo---- AT THIS POINT, FILE VTSOFT WAS TOO SMALL 
131 260 CONTINUE 
132 CALL HEADER(2) 
133 WRITE (OUT, 169) OFTFCB(10) 
134 IF (IOCHK(I)) 420, 270, 420 
135 C 
136 C------ MAKE FILE VTSOFL APPEAR CLOSED (TO PREVENT USE) 
137 270 OFTFCB(5) = 0 
138 6C 
139: Ceesa<= AND RETURN TO THE CALLER 
140 300 CONTINUE 
141 RETURN 
we C 
143 Cee-=e-| BELOW ARE THE 1/0 STOP EXITS 
144 420 sTOP 200 
145 430 STOP 300 
146 440 STOP 400 
147 ENO 


ENTRY/COMMON BLOCK NAMES 
000751 R CLEAR 
000646 C COMMON 


EXTERNAL NAMES 

OOON4S E 

000063 E SYSGET 
000541 E VSOPEN 
000640 E SHR 
000000 E VSRERR 
000000 E VSRERI 
oo0644 E $11 
000650 E 

o00652 E 10CHK 
000635 E HEADER 
000702 E $sT 

SYMBOL TABLE 

000706 R 000001 
000720 R 000002 
000714 R 000004 
ooooo! Cc PL 
ooo00e C Pe 
000435 C OuT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C BUF 
000705 R 000240 
000244 C SECTOR 
000721 R 000170 
ooo44e C u 
000715 R 000005 
000447 C TUION 
000453 C Tis 
000457 C Teco 
000607 C OFLFCB 
000724 R 000015 
000624 C DF TFCB 
000464 C LINE 
000007 R FCBKEY 
000003 R FCBNAM 
ooco0g Cc ITEST 
000243 C INCHAR 
000434 C IN 


72) 


06 00071 
eeeeeeee 
00073 
00074 
00075 
00076 


eeecccee 


06 00095 
or 96 


PAGE 


VTAM AL 


ooo44l 
000604 
000605 
000641 
ooo64e 
000643 
oo0644 
000645 
000663 
ao00ee 
000707 
000710 
000711 
000445 
900063 
000712 
000713 
000716 
000717 
000206 
000722 
000723 
000230 
000725 
000310 
000726 
000727 
000730 
000731 


000732 
000733 
900734 
000735 
000736 
000737 
000740 
000541 
oco741 
000742 
000462 
000403 
000444 
000743 
Q00744 
000640 
000000 
000000 
000644 
000650 
000652 
000675 
000540 
000635 
000501 
000671 
000533 
000745 
000746 
000634 
000567 
000747 
000701 
000624 
000667 
000662 
000750 
000702 


c 
c 
S 
c 
c 
c 
c 
c 
R 
R 
R 
R 
R 
E 
E 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
E 
R 
R 
R 
R 
R 
R 
R 
E 
E 
E 
5 
E 
E 
R 
R 
E 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
€ 
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-oomvouLuNe 


2200000000 


aA99NM2EAR00000 


aQ2220000 A000 


BITSET © 74) 
THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOY 00001 
04 00002 
V.0.M. PART NO. 92L.1105-024A 04 00003 
04 00004 
RELEASED —-03-26-7 04 00005 
04 00006 
04 00007 
COMPAR 04 00008 
04 00009 
04 00010 
TITLE COMPAR 04 00011 
SUBROUTINE COMPAR(N) 04 00012 
THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES** 
- 
V.D.M, PART NO. 92L.1105-023A 
RELEASED  03-26-7 
COMMON 
PUSPTETTEPITTTTTTITTTTrir Tri rrrrer rrr teeter eerie) 
* DECLARE COMMON CELLS . 
PPTTTTeeerreerrrrrerrrrrerrrrrrerr rr rrrrriirereeree teeter erry) 
COMMON ITEST , Pl .P2 _, BUF _,_INCHAR, SECTOR, IN 
COMMON OUT | VTSOFL, VTSOFT, BLANK , LSON ., LSO  , TUION 
COMMON TIB , TCD, LINE . LNCNT , LNMAX , PGCNT 
COMMON DFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTDSP 
INTEGER P1 »P2  —, OUT _, VTSDFL, VTSOFT, BLANK , PGCNT 
INTEGER BUF (160), SECTOR(120), LSD. ( 5), TUIODN( 4) 
INTEGER TIB. ( 4), TCD (¢ 5), OFLFCB( 13), DFTFCB( 13) 
INTEGER LINE ( 80) 
PreTTTVireerirerrcrriiicerritit rite 
* END OF COMMON DECLARATIONS . 
POPPETTTIT PTET UPTPETITITTTiIireerrrierrrr ricer riiiee rite e etree errr T) 
INTEGER START, SIZE 04 00013 
04 00014 
04 00015 
SUBROUTINE COMPAR COMPARES A GIVEN LITERAL STRING AGAINST 04 00016 
THE CURRENT CONTENTS OF THE INPUT BUFFER. 04 00017 
THE TEST FLAG, ITEST, IS SET TO REFLECT THE OUTCOME OF THIS 04 00018 
TEST. ALL LITERAL STRINGS ARE DECLARED IN THE LOCAL VECTORS 04 00019 
STRING AND POOL. 04 00020 
04 00021 
DIMENSION STRING( 53), POOL (287) 04 00022 
INTEGER STRING, POOL 04 00023 
04 00025 
<----- STRING 0 4HLINE 04 00026 
DATA STRING( 1)/  1/, POOL ( 1D/) Ws 04 00027 
DATA POOL ( 2)/2HL/, POOL ( 3)/2H I/, POOL ( 4)/2H N/ 04 00028 
DATA POOL ( 5)/2H E/ 04 00029 
c 04 00030 
----=-STRING 1 1H: 04 00031 
DATA STRING( 2)/_ G/, POOL ( 6)/ 1/ 04 00032 
DATA POOL ( 7)/2H :/ 04 00033 
04 00034 
STRING 2 1H, 04 00035 
DATA STRING( 3)/_  8/, POOL ( 8)/ 1/ 04 00036 
DATA POOL ( 9)/2H ,/ 04 00037 
c 04 00038 
wennee STRING 3 THADDRESS 04 00039 
DATA STRING( 4)/_ 10/, POOL ¢ 10)/_ 7/ 04 00040 
DATA POOL ( 11)/2H A/, POOL ( 12)/2H D/, POOL ( 13)/2H D/ 04 00041 
DATA POOL ¢ 14)/2H R/, POOL ( 15)/2H E/, POOL ( 16)/2H S/ 04 00042 
DATA POOL (¢ 17)/2H S/ 04 00043 
c 04 00044 
Sane STRING 4 IH= 04 00045 
DATA STRING( 5)/_ 18/, POOL ( 18)/ 1/ 04 00046 
DATA POOL ( 19)/2H =/ 04 00047 
04 00048 
------ STRING 5 ‘THCONNECT 04 00049 
DATA STRING( 6)/ 20/, POOL ( 20)/  7/ 04 00050 
DATA POOL ( 21)/2H C/, POOL ( 22)/2H O/, POOL ¢ 23)/2H N/ 04 00051 
DATA POOL ( 24)/2H N/, POOL ( 25)/2H E/, POOL ( 26)/2H C/ 04 00052 
DATA POOL ( 27)/2H T/ 04 00053 
04 00054 
------ STRING 6 GHDIRECT 04 00055 
DATA STRING( 7)/ 28/, POOL ( 28)/_ &/ 04 00056 
DATA POOL ( 29)/2H D/, POOL ( 30)/2H 17, POOL ( 31)/2H R/ 04 00057 
DATA POOL. ( 32)/2H E/, POOL ( 33)/2H C/, POOL (¢ 34)/2H T/ ou goose 
4 
anna n= STRING 7 SHMODEM 04 00060 
DATA STRING( 8)/ 35/, POOL ( 35)/_ 5/ 04 00061 
DATA POOL ( 36)/2H M/, POOL ( 37)/2H O/, POOL ( 38)/2H D/ 04 00062 
DATA POOL ( 39)/2H E/, POOL ( 40)/2H M/ 04 00063 
04 00064 
------ STRING 8 4HOIAL 04 00068 
DATA STRING( 9)/ 41/, POOL (41/4 04 00066 
DATA POOL ( 42)/2H D/, POOL ( 43)/2H I/, POOL ( 44)/2H A/ 04 00067 
DATA POOL ¢ 45)/2H L/ 04 00068 
c 04 00069 
C------ STRING 9 IH 04 00070 
DATA STRING( 10)/ 46/, POOL ( 46)/ 17 04 00071 


PAGE 


VTAM At BITSET & 6) PAGE 2 


95 DATA POOL ( 47)/2H -/ 04 00072 
96 C 04 00073 
Se Ga-sees STRING 10 3HCRC 04 00074 
98 DATA STRING( 11)/  48/, POOL ( 4B)/_— 3/ 04 00075 
339 DATA POOL ( 49)/2H C/, POOL ( 50)/2H R/, POOL ( 51)/2H C/ 04 00076 
100 C 04 00077 
[0 Cemaac! STRING 11 4HSTOP . 04 00078 
102 DATA STRING( 12)/  52/, POOL ¢ 5Se)/ Ja 04 00079 
103 DATA POOL ( 53)/2H S/, POOL ( 54)/2H T/, POOL ( 55)/2H O/ o4 00080 
104 DATA POOL ( 56)/2H P/ 04 coos! 
105 C 04 00082 
106 Cres==! STRING 12 4HECHO 04 00083 
107 DATA STRING( 13)/ 57/, POOL + 57)/ w/ 04 00084 
108 DATA POOL ( 58)/2H E/, POOL ( 59)/2H C/, POOL ( 60)/2H H/ 04 00085 
109 DATA POOL (¢ 61)/2H O/ 04 00086 
10 06C 04 00087 
Tht. Genes STRING 13. 3HEOM o4 0008s 
112 DATA STRING( 14)/  62/, POOL ( 62)/ EYA 04 00089 
113 DATA POOL ( 63)/2H E/, POOL ( 64)/2H 0/, POOL ( 65)/2H M/ 04 00090 
th € 04 00091 
IS: (Grseo== STRING 14 SHFALSE 04 00092 
116 DATA STRING( 15)/  66/, POOL ( 66)/ L-¥4 04 00093 
117 DATA POOL ( 67)/2H F/, POOL ( 68)/2H A/, POOL ( 69)/2H L/ 04 o00S4 
118 DATA POOL ( 70)/2H S/, POOL ( 71)/2@H E/ 04 00095 
1g °C 04 00096 
120 Coen STRING 15 IHC 04 00097 
let DATA STRING( 16)/ 72/, POOL ( 72)/ Vv 04 00098 
122 DATA POOL ( 73)/2H (/ 04 00099 
123 C 04 00100 
fet Csesso5 STRING 16 1H) oY 00101 
125 DATA STRING( 17)/  74/, POOL ( 74)/ Vv 04 00102 
126 DATA POOL (¢ 75)/2H )/ 04 00103 
1e7 C 04% 00104 
Tae Geeeses STRING 17 SHERROR 04 00105 
1e9 DATA STRING( 18)/ 76/, POOL ( 76)/ 5/ 04 00106 
130 DATA POOL ( 77)/2H E/, POOL { 78)/2H R/, POOL ( 79)/2H R/ 04 00107 
131 DATA POOL ( 80)/2H O/, POOL (¢ 61)/2H R/ 04 00108 
132 C 04 00109 
133. (Qpoweme STRING 18 4HTYPE 04 00110 
134 DATA STRING( 19)/ 62/, POOL ( 82)/ WwW OY OO111 
135 DATA POOL ( 83)/2H T/, POOL ( 84)/2H Y/, POOL ( 85)/2H P/ 04 00112 
A36 DATA POOL ( 86)/2H E/ 04 00113 
137 C 04 00114 
E38 Geeeses) STRING 19 4HHALF 04 00115 
139 DATA STRING( 20)/ 87/, POOL ( 87)/ 4/ 04 00116 
140 DATA POOL ( 88)/2H H/, POOL ( 89)/2H A/, POOL ( 90)/2H L/ 04 00117 
141 DATA POOL ( 91)/2H F/ 04 00118 
42a C 04 00119 
IMS. GeSeee STRING 20 GHOUPLEX 04 00120 
144 DATA STRING( 21)/_ 92/, POOL ( 92)/ &/ 04 o01e1 
145 DATA POOL ( 93)/2H D/, POOL ( 94)/2H U/, POOL ( 95)/2H P/ 04 o0122 
146 DATA POOL ( 96)/2H L/, POOL ( 97)/2H E/, POOL ( 98)/2H X/ 04 00123 
147 04 00124 
THE Ceecene STRING 21 T7HSIMPLEX 04 00125 
149 DATA STRING( 22)/ 99/, POOL (¢ 99)/ VU 04 00126 
150 DATA POOL (100)/2H S/, POOL (101)/2H I/, POOL (102)/2H M/ 04 00127 
151 DATA POOL (103)/2H P/, POOL (104)/2H L/, POOL (105)/2H E/ o4 00128 
152 DATA POOL (106)/2H X/ 04 OOle9 
153 C 04 00130 
154 Geene==! STRING 22 THRECEIVE 04 00131 
155 DATA STRING( 23)/ 107/, POOL (107)/ Vv 04 00132 
156 DATA POOL (108)/2H R/, POOL (109)/2H E/, POOL (110)/2H C/ 04 00133 
157 DATA POOL (111)/2H E/, POOL (112)/2H I/, POOL (113)/2H W/ 04 00134 
158 DATA POOL (114)/2H E/ 04 00135 
159 C 04 00136 
$60 Gsene=n) ‘STRING 23 SHTRANSMIT 04 00137 
161 DATA STRING( 24)/ 115/, POOL (115)/ 8/ 04 00138 
162 DATA POOL (116)/2H T/, POOL (117)/2H R/, POOL (118)/2H A/ 04 00139 
163 DATA POOL (119)/2H N/, POOL (120)/2H S/, POOL (121)/2H M/ 04 00140 
164 DATA POOL (122)/2H I1/, POOL (123)/2H T/ o4 00141 
165 C 04 00142 
166 G-eeone STRING 24 YHFULL 04 00143 
167 DATA STRING( 25)/ 124/, POOL (124)/ ws OY 00144 
168 DATA POOL (125)/2H F/, POOL (126)/2H U/, POOL (127)/2H L/ 04 0014S 
169 DATA POOL (128)/2H L/ 04 00146 
170 C 04 00147 
wh Ceeseee ‘STRING 25 YHMODE 04 00148 
fie DATA STRING( 26)/ 129/, POOL (129)/ u/s 04 00149 
173 DATA POOL (130)/2H M/, POOL (131)/2H O/, POOL (132)/2H D/ 04 00150 
174 DATA POOL (133)/2H E/ oO 00151 
175 C 04 00152 
IG: Cosnwed STRING 26 1HA 04 00153 
177 DATA STRING( 27)/ 134/, POOL (134)/ Vv 04 00154 
178 DATA POOL (135)/2H A/ 04 00155 
179 «C 04 00156 
180 Ceee==s| ‘STRING 27 4HSYNC 04 00157 
181 DATA STRING( 28)/ 136/, POOL (136)/ ws o4 00158 
182 DATA POOL (137)/2H S/, POOL (138)/2H Y/, POOL (139)/2H N/ 04 00159 
183 DATA POOL (140)/2H C/ 04% 00160 
184 C 04 00161 
185 G=-2=-- STRING 28 7THHRONOUS 04 00162 
186 DATA STRING( 29)/ 141/, POOL (141)/ VW 04 00163 
187 DATA POOL (142)/2H H/, POOL (143)/2H R/, POOL (144)/2H O/ 04 00164 
188 DATA POOL (145)}/2H N/, POOL (146)/2H O/, POOL (147)/2H U/ 04 00165 
189 DATA POOL (148)/2H S/ 04 00166 


c 
19f C---=-- STRING 29 GHPARITY 04 00168 


VTAM Al BITSET ( 76) PAGE 


192 DATA STRING( 30)/ 149/, POOL (149)/  6/ 04 00169 
193 DATA POOL (150)/2H P/, POOL (151)/2H A/, POOL (152)/2H R/ 04 00170 
194 DATA POOL (153)/2H I/, POOL (154)/2H T/, POOL (155)/2H Y/ 04 00171 
195 C 04 00172 
195. Gp=-9==! STRING 30 4HNONE 04 00173 
197 DATA STRING( 31)/ 156/, POOL (156)/ ws 04 00174 
198 DATA POOL (157)/2H N/, POOL (158)/2H O/, POOL (159)/2H N/ 04 00175 
199 DATA POOL (160)/2H E/ 04 00176 
200 ¢ 04 00177 
COL CeesH==i STRING 31 3HODD 04 00178 
202 DATA STRING( 32)/ 161/, POOL (161)/ 0 3/ 04 00179 
203 DATA POOL (162)/2H O/, POOL (163)/2H D/, POOL (164)/2H D/ 04 00180 
e204 04 oOrs! 
205 -STRING 32 4HEVEN 04 00182 
206 DATA STRING( 33)/ 165/, POOL (165)/)  4/ 04 00183 
207 DATA POOL (166)/2H E/, POOL (167)/2H V/, POOL (168)/2H E/ 04 00184 
208 DATA POOL (169)/2H N/ 04 00185 
e0g9 Cc 04 00186 
210 CHs<==-' STRING 33 SHSPEED 04 00187 
eit DATA STRING( 34)/ 170/, POOL (170)/  5/ o4 00188 
ele DATA POOL (171)/2H S/, POOL (172)/2H P/, POOL (173)/2H E/ 04 00189 
213 DATA POOL (174)/2H E/, POOL (175)/2H D/ 04 00190 
214 C 04 00191 
215 C------' STRING 34 6HSTATUS 04 00192 
216 DATA STRING( 35)/ 176/, POOL (176)/ 6/ 04 00193 
e217 DATA POOL (177)/2H S/, POOL (178)/2H T/, POOL (179)/2H A/ 04 oO194 
218 DATA POOL (180)/2H T/, POOL (181)/2H U/, POOL (182)/2H S/ 04 00195 
e19 Cc 04 00196 
220 C------! STRING 35 @HUP 04 00197 
221 DATA STRING( 36)/ 183/, POOL (183)/ 2/ 04 00198 
eee DATA POOL (184)/2H U/, POOL (185)/2H P/ 04 00199 
223 C 04 00200 
224 Caoeen=-' STRING 36 4HDOWN 04 00201 
225 DATA STRING( 37)/ 186/, POOL (186)/ 4/ 04 00202 
226 DATA POOL (187)/2H D/, POOL (188)/2H O/, POOL (189)/2H W/ 04 00203 
ee7 DATA POOL (190)/2H N/ 04 00204 
e228 C 04 00205 
eed (Gennes) STRING 37 SHSTORE 04 00206 
230 DATA STRING( 38)/ 191/, POOL (191)/ 5/ 04 00207 
231 DATA POOL (192)/2H S/, POOL (193)/2H T/, POOL (194)/2H O/ 04 00208 
232 DATA POOL (195)/2H R/, POOL (196)/2H E/ 04 00209 
233 C¢ 04 O0210 
GSH Cersa==| STRING 38 ‘THHRONIZE 04 00211 
235 DATA STRING( 39)/ 197/, POOL (197)/  7/ 04 00212 
236 DATA POOL (198)/2H H/, POOL (199)/2H R/, POOL (200)/2H O/ 04 00213 
237 DATA POOL (201)/2H N/, POOL (202)/2H I/, POOL (203)/2H 2/ 04 00214 
238 DATA POOL (204)/2H E/, POOL (205)/2H /, POOL (206)/2H / 04 o0215 
239 DATA POOL (207)/2H /, POOL (208)/2H / 04 00216 
240 C 04 00217 
aay Ca-a=<=' STRING 39 4HHIGH 04 00218 
e4e DATA STRING( 40)/ 209/, POOL (209)/  4/ 04 ooe2Ig9 
243 OATA POOL (210)/2H H/, POOL (211)/2H I/, POOL (212)/2H G/ 04 00220 
e4y4 DATA POOL (213)/2H H/ 04 coeze2t 
e456 ¢ 04 o0222 
246 C------' STRING 40 3HLOW 04 00223 
247 DATA STRING( Y1)/ 214/, POOL (214)/  3/ 04 00224 
248 OATA POOL (215)/2H L/, POOL (216)/2H 0/, POOL (217)/2H W/ 04 00225 
e49 C 04 00226 
ean) ;Cs=sman| STRING 41 11HTRANSPARENT 04 00227 
251 DATA STRING( 42)/ 218/, POOL (218)/_ 11/7 04 o02e8 
252 DATA POOL (219)/2H T/, POOL (220)/2H R/, POOL (221)/2H A/ 04 00229 
253 DATA POOL (222)/2H N/, POOL (223)/2H S/, POOL (224)/2H P/ 04 00230 
"254 DATA POOL (225)/2H A/, POOL (226)/2H R/, POOL (227)/2H E/ 04 00231 
e255 DATA POOL (228)/2H N/, POOL (229)/2H T/ 04 00232 
e566 C 04 00233 
257 (CHn-n=| STRING 42 IH. 04 00234 
258 DATA STRING( 43)/ 230/, POOL (230)/ Vv 04 00235 
259 DATA POOL (231)/2H ./ 04 00236 
e260 C 04 00237 
261 C------! STRING 43 SHTERMINAL 04 00238 
262 DATA STRING( 44)/ 232/, POOL (232)/ 8/ 04 00239 
263 DATA POOL (233)/2H T/, POOL (234)/2H E/, POOL (235)/2H R/ 04 C0240 
264 DATA POOL (236)/2H M/, POOL (237)/2H 1/, POOL (238)/2H N/ 04 00241 
e265 DATA POOL (239)/2H A/, POOL (240)/2H L/ 04 o0e42 
e66 C 04 00243 
267 -G=--=--| STRING 44 4HCODE 04 00244 
268 DATA STRING( 45)/ 241/, POOL (241)/ 4/ 04 00245 
269 DATA POOL (242)/2H C/, POOL (243)/2H O/, POOL (244)/2H D/ 04 00246 
270 DATA POOL (245)/2H E/ 04 00247 
e71 C 04 00248 
Ele ‘Ca—--=-| STRING 45 SHASCII 04 00249 
e73 DATA STRING( 46)/ 246/, POOL (246)/ Ss 04 00250 
e74 DATA POOL (247)/2H A/, POOL (248)/2H S/, POOL (249)/2H C/ 04 00251 
e275 DATA POOL (250)/2H I/, POOL (251)/2H I/ 04 00252 
e76 C 04 00253 
eth (Geas-=a STRING 46 THDEVICES 04 00254 
278 DATA STRING( 47)/ 252/, POOL (252)/  7/ 04 00255 
279 DATA POOL (253)/2H 0/, POOL (254)/2H E/, POOL (255)/2H V/ 04 00256 
280 DATA POOL (256)/2H I1/, POOL (257)/2H C/, POOL (258)/2H E/ 04 00257 
281 DATA POOL (259)/2H S/ 04 00258 
ese C 04 00259 
263 C------! STRING 47 GHPROMPT 04 00260 
284 DATA STRING( 48)/ 260/, POOL (260)/ &/ 04 00261 
285 DATA POOL (261)/2H P/, POOL (262)/2H R/, POOL (263)/2H O/ 04 00262 
286 DATA POOL (264)/2H M/, POOL (265)/2H P/, POOL (266)/2H T/ 04 00263 
e287 ¢ 04 00264 


268 Canes! STRING 48 YHTTYI 04 00265 


(267)/ 
(269) /2H 


(27217 
(274) /2H 


(27707 
(279)/2H 


(28107 


(283)/ 
(285)/2H 


BITSET 


ws 
T/, POOL 


4/ 
N/, POOL 


EY 
N/, POOL 


/ 


w/ 
R/, POOL 


(77) 


(270)/2H Ys 


(275) /2H 17 


(280)/2H D/ 


(286)/2H U/ 


SsSens| BACKUP THE INPUT POINTER AND SET THE TEST FLAG TO FALSE 


o-----| LOCATE THE REQUESTED STRING WITHIN THE LOCAL VECTORS 


oon n=- NOW COMPARE EACH INPUT CHARACTER AGAINST THE LOCAL STRING 


IF (INCHAR ~ (POOL(J) .AND. 255)) 200, 100, 200 


--ALL CHARACTERS COMPARE, ADVANCE POINTERS AND SET TEST FLAG TRUE 


VTAM Al 
28g DATA STRING( 49)/ 267/, POOL 
230 DATA POOL (268)/2H T/, POOL 
eg! DATA POOL (271)/2H I/ 
ege C 
293 C--=--= STRING 49 4HUNIT 
eo4 DATA STRING( 50)/ 272/, POOL 
e935 DATA POOL (273)/2H U/, POOL 
296 DATA POOL (276)/2H T/ 
eg7 ¢ 
298 Ca--e=-! STRING 50 3HEND 
299 DATA STRING( 51)/ 2777, POOL 
300 DATA POOL. (278)/2H E/, POOL 
301 C¢ 
S02 CserS- STRING 51 1HO 
303 DATA STRING( 52)/ 281/, POOL 
304 DATA POOL (282)/2H 0/ 
305 C 
S0e ‘Caressa! STRING 52 4HTRUE 
307 DATA STRING( 53)/ 283/, POOL 
308 DATA POOL (284)/2H T/, POOL 
309 DATA POOL (287)/2H E/ 
310 C¢ 
Bir oc 
312 CALL_BACKUP 
313 ITEST = 0 
314 C 
315 C¢ 
316 START = STRING(N + 1) 
317 SIZE = POOL(START) 
318 C¢ 
319 C 
320 00 100 I = 1, SIZE 
321 J = START + I 
322 CALL GETCHR 
323 
324 «100 CONTINUE 
325 
326 C--- 
327 CALL_ADVANC 
328 ITEST = 1 
3eg9 C 
330 Ceeeaa= AND RETURN TO THE CALLER 
331 200 RETURN 
332 ENO 
ENTRY/COMMON BLOCK NAMES 
Q00660 R COMPAR 
000646 C COMMON 
EXTERNAL NAMES 
000002 E $SE 
000534 E BACKUP 
000600 E GETCHR 
000627 E $00 
000635 E ADVANC 
SYMBOL TABLE 
000654 R 000001 
100004 R N 
000002 E SSE 
oooo01 Cc Pi 
000002 C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C 
000244 C SECTOR 
oo0044e C Lso 
000447 C TUIDN 
000453 C TIB 
000457 C TCO 
000607 C OFLFCB 
000624 C DFTFCB 
000464 CLINE 
000651 R START 
000653 R_ SIZE 
000007 R STRING 
000074 R 
000000 C_ ITEST 
000243 C INCHAR 
000434 C IN 
ooo0441 C LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo0642e C LFILE 
000643 C NXTSCT 
000644 C IDTSCT 
000645 C IDTOSP 
000534 E BACKUP 
000646 R 000000 
000637 R Oo 
000647 R 000007 
000650 R_ $1 
000652 R 000073 
000626 R 100 
000655 R 1 
000656 R J 


seennees 


04 


00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 


PAGE 
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000600 E GETCHR 
000657 R 000377 
000644 R 200 


000627 E $00 
000635 FE ADVANC 
O ERRORS COMPILATION COMPLETE 


VTAM AL BITSET ( 79) PAGE 1 


1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO3 00001 
2¢ 03 00002 
s € v.0.M, PART NO. 92L 1105-0254 03 00003 
oo¢ 03 00004 
5 Cc RELEASED —-03-26-7 03 00005 
6 ¢ 03 00006 
7 ¢ 03 00007 
ac O1AG 03 00008 
9c 03 00009 
10 ¢ 03 00010 
i TITLE OIAG 03 ooo11 


12 SUBROUTINE DIAG 03 0 
THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES**### 


13 ¢ 
4 C 

15 ¢ V.D.M. PART NO. 92L 1105-023 

16 

17 ¢ RELEASED  03-26-7 

18 C 

19 ¢ 

20 ¢ 

21 ¢ 

22 ¢ 

23 C 

a4 ¢ 

25 C . 
26 COMMON ITEST , PI .P2 —_, BUF, _INCHAR, SECTOR, IN * 
27 COMMON OUT | VTSOFL, VTSDFT, BLANK , LSON . LSD , TUION * 
28 COMMON TIB , TCD, LINE, LNCNT , LNMAX , PGCNT . 
29 COMMON OFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IOTSCT, IDTOSP * 
30 INTEGER PI » P2 + OUT » VTSOFL, VTSOFT, BLANK , PGCNT * 
31 INTEGER BUF (160), SECTOR(120), LSD_| ( 5), TUIDN (4) . 
32 INTEGER TIB « 4), TCO ( 5), OFLFCB( 13), DFTFCB( 13) ° 
33 INTEGER LINE ( 80) . 
Jy C teeeneceseneeseeeseeeeeneeeeeeeesee essen eee eeeeeeeeeeeneneeeneeeeeees © 
35 C * END OF COMMON DECLARATIONS oe 
3 ce eee eee 
37 ¢ 

38 ¢ THIS ROUTINE IS CALLED BY PARSE WHENEVER A SYNTAX ERROR 

32 ¢ IS SUSPECTED IN THE INPUT STREAM 

40 

We IF (ITEST) 500, 100, 500 

4 

43 C------ FIRST SHRINK UP THE INPUT BUFFER FOR THE MESSAGE 03 00017 
44 100 CALL SHRINK steeeeee 
45 

46 C------ THEN PREPARE AND OUTPUT THE MESSAGE 

47 CALL HEADER(3) 

4B Cc 

49 Cocce==' SHIFT CHARACTERS LEFT 

50 00 10 1 = 1, 80 

51 LINE(I) = 0 

52 10 CALL BITSET (LINE(I), 15, 08, BUF(I)) 

53 WRITE (OUT, 99) LINE 

54 IF (IOCHK(1)) 520, 500, 520 

55 99 FORMAT (1HO, I4H**SYNTAX ERROR, /, 1X, 80 A 1) 

56 C 

57 C------ AND RETURN TO THE CALLER 

58 500 RETURN 

59 ¢ 

60 C------ BELOW IS THE 1/0 ERROR STOP 


61 520 STOP 200 


62 ENO 
ENTRY/COMMON BLOCK NAMES 

000150 R_ OIAG 

000646 C COMMON 
EXTERNAL NAMES 

000015 E SHRINK 


000017 E HEADER 
000047 E BITSET 
000055 E $00 
000063 E SHR 
000000 E V$RERR 
000000 E V$RERI 
000067 E $1 


SYMBOL TABLE 
000135 R o00001 
000001 C PL 
000002 C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VT$OFT 
000440 C BLANK 
000606 C PGCNT 
000003 C BUF 
000244 C SECTOR 
o00442 C so 
000447 C TUIDON 
000453 C TIB 
000457 C TCD 


000607 C OFLFCB 
000624 C OFTFCB 
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000464 
000147 
000000 
000243 
000434 
OOON4T 
000604 
000605 
000641 
000642 
000643 
000644 
000645 
000126 
000014 
000015 
000017 
000134 
000035 
000136 
000036 
ooot4) 
000137 
000140 
000047 
000145 
000146 
ooo14e 
000143 
ooo144 
000055 
000063 
000000 
000000 
000105 
000067 
000073 
000075 
000130 
000131 
0 ERROR 


R 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
R 
R 
E 
E 
R 
R 
R 
R 
R 
R 
R 
E 
R 
R 
R 
R 
R 
E 
ie 
E 
E 
R 
€ 
E— 
E 
R 
(3 
iS 


$NO 
TOCHK 


iT 
COMPILATION COMPLETE 


BITSET 


C 


80) 


PAGE 


VTAM Ai BITSET ( @1) 


v.0.M. PART NO. 92L1105-026A 
RELEASED 05 26-7 


GETCHR 


-owcyourwn— 
an290N00N0000 


TITLE GETCHR 


12 SUBROUTINE GETCHR 0 
13. C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES*#*® 
14 C . 
15 C¢ Vv.O0.M, PART NO. 92L1105-023A 
16 C 
17: «¢ RELEASED 03-26-7 
18 C 
19 C 
eo Cc COMMON 
el Cc 
22 © 
23 c* 
ey oc 
a5 ce eee Prrerrrrry 
26 COMMON ITEST , Pl + Pe » BUF » INCHAR, SECTOR, IN 
27 COMMON OUT , VTSOFL, VTSDFT, BLANK , LSON , LSD , TUIDN 
28 COMMON TIB  , TCD, LINE , LNCNT , LNMAX , PGCNT 
eg COMMON OFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTOSP 
30 INTEGER PI yee , OUT .« VTSOFL, VTSOFT, BLANK , PGCNT 
31 INTEGER BUF (160), SECTOR(120), LSD ( 65), TUION ( 4) 
32 INTEGER TIB ¢ 4), TCD (¢ 5), OFLFCB( 13), OFTFCB( 13) 
33 INTEGER LINE ( 80) 
Zu C teen eee ewes eee e eee e ene e esse eee S OSES SOE SOESSESSOESSOSESESSSSESEREOS 
35 Cc ® END OF COMMON DECLARATIONS . 
JG C teen ene e een ee enon ones ese See eee OSES ESSESEO SES SSESEOS ESSE SHON SS EOEES 
37: ¢ 
38 C SUBROUTINE GETCHR FINDS THE NEXT NON-BLANK INPUT CHARACTER 
aoc sovensses Suisse 
4! Cc 
42 Cn-===- FIRST ATTEMPT TO SATISFY THE REQUEST FROM THE CURRENT CARD 
43 1 IF (BUF(PI) ~ BLANK) 10, 100, 10 
44 CC 
4S Conssas REQUEST CAN BE SATISFIED 
46 10 INCHAR = BUF (PI) 
47 Pl = PL} 
48 RETURN 
49 C 
60. (Csse==- ‘NEW CARD MUST BE READ, FIRST COMPRESS THE CURRENT CARD 
51 100 CONTINUE 
Se CALL SHRINK 
53 oc 
BY iCastase THEN READ AND LIST THE NEXT CARD FROM PI 
55 READ (IN, 99) (BUF(I), 1 = 61, 160) 
56 99 FORMAT ( 80 A 1) 
57 é IF (LOCHK(1)) 210, 110, 210 
58 
5 Cs=6s=- NOW LIST OUT CARD IMAGE 
60 110 CALL _HEADER(1) 
61 WRITE (OUT, 97) (BUF(I), I = 81, 160) 
62 97 FORMAT (1X, 80 A 1) 
63 IF (IOCHK(1)) 220, 112, 220 
64 
65 C-----=' SHIFT DATA RIGHT IN EACH WORD 
66 0O 120 I = 81, 160 
EY CALL BITGET (BUF(I), 15, 08, BUF(I)) 
69 ~IF A SLASH CARD IS READ, TREAT AS AN 1/0 ERROR 
m0 IF (BUF(81) - 175) 122, 210, 122 
1 
72 C------ BLANK SEQUENCE NUMBER PORTION OF THE NEW CARD 
73 DO 130 I = 153, 160 
ha) BUF (IT) = BLANK 
ir] 
76 C------ THEN COMPRESS THE NEW CARD IMAGE INTO THE OLD STRING 
7 CALL SHRINK 
78 O6C 
79 C------ AND ATTEMPT TO SATISFY THE REQUEST AGAIN 
80 GO TO! 
gi Cc 
Be :Cssaxae| BELOW ARE THE 1/0 ERROR STOPS 


83 210 STOP 100 
84 220 STOP 200 
85 END 
ENTRY/COMMON BLOCK NAMES 
000312 R GETCHR 
000646 C COMMON 
EXTERNAL NAMES 
000264 E SHRINK 
000053 E SRD 
000000 E VSRERR 
000000 E V$RERI 
oooi4e E Sit 


THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOS 00001 


05 00002 
05 00003 
05 00004 
05 00005 
0% 00006 
0) 00007 
05 00008 
05 00009 
05 00010 
05 00011 


5 ooo12 


ase 
seeneee 
. 


eeeeeene 
05 00013 
05 00014 
05 00015 
05 00016 
oS tks 


eenecces 
05 00021 
05 00022 


eeneseee 


05 00035 
05 00036 
teeeeeee 
05 00038 
05 00039 


eeneeee 


05 ooo4! 
oS coo4e 
seecenee 
05 00044 
05 0004! 
05 
* 


PAGE 
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000256 E $00 
000154 E $ND 
900165 E IOCHK 
G00122 E HEADER 
0001e5 E SHR 
000207 E BITGET 
o00e74 E $sT 
SYMBOL TABLE 
000301 R o00001 


000001 C PI 
o0000e C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VTSOFT 
Q00440 C BLANK 
000606 C PGCNT 
000003 C BUF 
000304 R 000240 
g00244 C SECTOR 
ooo4we C Lso 
000447 C TUIDN 
000453 C TIB 
000457 C TCO 
000607 C DFLFCB 
000624 C DFTFCB 
000464 CLINE 
000003 R 1 
oo00000 C_ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo642 C LFILE 
000643 C NXTSCT 
000644 C IDTSCT 
000645 C IDTOSP 
000277 R o00002 
000252 R 0 
000300 R $I 
000023 R 10 
000050 R 100 
000264 E SHRINK 
000053 E 

000000 E V$RERR 
000000 E V$RERI 
000105 R 
000303 R 

000302 R 000121 
e002 E $11 
000256 E $00 
000154 E $NO 
000165 E 10CHK 
000267 R 210 
ooo1e1 R 110 
000122 E HEADER 
000125 E SHR 
000157 R 97 
000273 R 220 
000175 R 112 
oooe2o! R 120 
000207 E BITGET 
000305 R 000017 
000306 R 000010 
000310 R 000257 
000307. R 000123 
000235 R 122 
900241 R 130 
000311 R 000231 
oo0e74 E 


$sT 
© ERRORS COMPILATION COMPLETE 


H-OwuayouswNn— 
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C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT !973 BY VARIAN DATA MACHINESO7 00001 

Cc 07 00002 

c V.D.M. PART NO. 92L1105-027A 07 00003 

c 07 oo004 

c RELEASED 03-26-7 07 00005 

(3 07 00006 

c 07 00007 

c GETLSO 07 00008 

Cc 07 00009 

c 07 00010 
TITLE GETLSD 07 00011 
SUBROUTINE GETLSD 07 

C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES*® 

c . 

c V.0.M. PART NO. 92L1105-023A 

c 

c RELEASED 03-26-7 

c 

c 

Cc COMMON 

c 

c 

c 

Cc 

¢ aoe eneees os * 


COMMON ITEST , Pl » Pe » BUF » INCHAR, SECTOR, 
COMMON OUT , VTSOFL, VTSOFT, BLANK , LSON , LSD 
COMMON TIB +» TCO » LINE _, LNCNT , LNMAX , PGCNT 
COMMON DFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, 
INTEGER PI . Pe . OUT . VTSOFL, VTSOFT, BLANK 
INTEGER BUF (160), SECTOR(120), LSD ( 5), TUION ( 
INTEGER TIB ¢ 4), TCD (¢ 5), DFLFCB( 13), DFTFCB( 


INTEGER LINE ( 80) 
* END OF COMMON DECLARATIONS 


THIS ROUTINE IS CALLED WHENEVER AN LSD IS NEEDED. 


IN THE COMMON BUFFER. IF IT 1S NOT, THEN IT IS READ 


Cokevelatslelelslalelslelele! 


ao----) ZERO OUT LSD IN COMMON 
bdo 100 1 = 1, & 
gee Lsoil) = 0 


Cranane IF FILE 1S CLOSEO, MERELY RETURN 
IF (OFLFCB(5)) 500, 500, 110 


110 ISECT = LSON / 24 + 1 
IDISP = LSON - (ISECT - 1) * 24 
IDISP = IDISP * 5 + 

c 

iCasesm< THEN CHECK AND SEE IF WE REALLY HAVE TO OO THE READ 
IF (LFILE - 1) 130, 120, 131 

120 IF (DFLFCB(4) - ISECT) 130, 200, 130 

c 

Canasee| ‘DION’ T WORK, A READ IS REQUIRED 


130 LFILE = 1 
OFLFCB(4) = ISECT 
REAO (VTSOFL) SECTOR 
OFLFCB(4) = ISECT 
IF CIOCHK(I)) 140, 200, 140 


--STOP ON FILE ERROR 
140 STOP 300 


Canna NOW MOVE THE LSD TO THE COMMON VECTOR LSD 
200 CONTINUE 

dbo @ioi=1,5 

J= 101ISP + J 

LSO(I) = SECTOR(J) 
ete CONTINUE 


Gaéeee= THEN MAKE A NORMAL RETURN TO THE CALLER 
500 RETURN 


82 ENO 
ENTRY/COMMON BLOCK NAMES 

000241 R GETLSO 

000646 C COMMON 
EXTERNAL NAMES 

oo0ei4 E 

000135 E $RO 

000000 E V$RERR 

000000 E VS$RERI 

oooi41 E $1 


000145 E 
000154 E I0CHK 
000163 E 


IOTOSP 
PGCNT 
w) 

3) 


FIRST THE SECTOR AND DISPLACEMENT OF THE LSD IS COMPUTED. 
THEN A CHECK 1S PERFORMED TO SEE IF THIS SECTOR IS ALREADY 


FROM THE FILE, VTSOFL. FINALLY THE LSO IS MOVED TO THE COMMON 
VECTOR, 'LSD' AND A NORMAL RETURN IS MADE TO THE CALLER. 


“FIRST COMPUTE THE SECTOR AND DISPLACEMENT WITHIN THE SECTOR 


OOOO ERE E SACRO HEHE DETER EERE RO OOCOSEEEEEEO ED OOOEEE SEES EERE ODODE SED 


OUP EOePererrrerr er rerer Titre rir) 


PROD O ORES ERE SEER EDS S ERODE DEOESEEE DED ESSOOSOREE EDU D ESSE DOS EOSSEEEES 


07 00040 
07 oO041 
07 00042 


seseeeee 


07 00054 
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SYMBOL TABLE 
000223 R 00000! 
ooo001 C PL 
000002 C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VTSOFT 
O00440 C BLANK 
000606 C PGCNT 
000003 C BUF 
000244 C SECTOR 
oo0442 C Lso 
000230 R 000005 
000447 C TUION 
000453 C TIB 
000457 C TCO 
000607 C DFLFCB 
000624 C OFTFCB 
000464 C LINE 
ooo000 C_ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
oo0642 C LFILE 
000643 C NXTSCT 
000644 C IOTSCT 
000645 C IDTDSP 
000007 R 100 
o002e4 R I 
000210 R os 
9000227 R 000000 
go00225 R 000441 
000226 R $1 
000214 E 
000231 R 000613 
ooo2e1 R 500 
000035 R 110 
000233 R_ ISECT 
000232 R 000030 
000234 R_ IDISP 
000121 R 130 
000106 R 120 
000235 R 000612 
000166 R 200 
000135 E $RD 
000000 E VSRERR 
000000 E V$RERI 
oooi41 E $ii 
000145 E 
000154 E IOCHK 
000162 R 140 
000163 E $sT 
a002e13 R 210 
000236 R J 
000237 R 000243 
oooe4o R $10 
0 ERRORS COMPILATION COMPLETE 
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1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOS 00001 
ac 05 00002 
3¢ V.D.M. PART NO. 92L 1105-028 05 00003 
uc 05 00004 
sc RELEASED 03-26-7 05 00005 
6c 05 00006 
7 iC 05 00007 
ac HEADER 05 00008 
gc 05 00009 
10 ¢ 05 00010 
i TITLE HEADER 05 00011 
12 SUBROUTINE HEADER(N) 
13 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES 
4 OC 
15 C V.0.M. PART NO. 92L1105-023A 
16 6C 
17 ¢ RELEASED 03-26-7 
18 C 
19 ¢ 
20 ¢ COMMON 
ai c 
22 C 
Py MPARTITITISITILILILTTT TEST TTL i i) 
24 C * DECLARE COMMON CELLS . 
25 C tecececeneeneneeeneeee seen ene nen ene eee eseneeeeeseee seeneesers seeeee 
26 COMMON ITEST , Pl Pe » BUF » INCHAR, SECTOR, IN 
27 COMMON OUT * VTSOFL: VTSOFT, BLANK , LSON , LSD » TUION 
28 COMMON TIB =, TCD. LINE , LNCNT , LNMAX , PGCNT 
29 COMMON OFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IOTOSP 
30 INTEGER Pl :P2 | OUT _, VTSDFL, VTSOFT, BLANK , PGCNT 
31 INTEGER BUF (160), SECTOR(120), LSD. ¢ 5), TUION (° 4) 
32 INTEGER TIB. ( 4), TCD ( 5), DFLFCB( 13), DFTFCB( 13) 
33 INTEGER LINE ( 80) 
PVE METTTITITITETIITTTIIriiirirrrTerTTiTiterTrTT Teter irri ie 
35 C * END OF COMMON DECLARATIONS . 
3G C eccccconeneeneeeccessseeee eee e ee eee eeeees este eseneeceeeeeeneeesoese 200eeee 
37 ¢ 05 00013 
38 C THIS ROUTINE IS CALLED WHENEVER A NEW HEADING IS NEEDED 05 00014 
39 ¢ ON THE LISTING DEVICE(LO). 05 00015 
40 C 05 00016 
41 ¢ 05 00017 
42 INTEGER NAMDTE(9), DATE(4), NAME(4) 05 00018 
43 EQUIVALENCE (NAMDTE(1), DATE(1)), (NAMOTE(5), NAME(1)) 05 00019 
44 seeceees 
45 C------ INCREMENT LINE COUNTER BY USER AMOUNT 05 00020 
46 LNCNT = LNCNT + N 05 00021 
47 IF (LNCNT = LNMAX) 500, 500, 100 seeeeese 
4B oc 05 00023 
49 ¢------ NEW PAGE IS NEEDED, PREPARE TOP LINE 05 00024 
50 100  PGCNT = PGCNT + seeceese 
51 LNCNT = 3 
52 CALL TIME (J,1) 
53 l=u7/ 60 
54 Jvas-1* 60 
55 I= 1 * 100+ 
56 CALL SYSGET (NAMOTE) 
57 WRITE (OUT, 99) PGCNT, DATE, NAME, I 
58 99 FORMAT (SHIPAGE, 15, 2X, 4A2, 2X, 4A2, 2X, 
59 1 GHVORTEX, 2X, YHVTAM, 2X, 3HNOL, I4X, 14, 6H HOURS, /) 
80 IF (LOCHK(I)} 200, 500, 200 
62 C------! STOP ON PRINTER ERROR 
63 200 sTOP 200 
ey ¢ 
65 C------ RETURN TO THE CALLER 
66 500 RETURN 
67 END 05 00039 
ENTRY/COMMON BLOCK NAMES 
000231 R HEADER 
000646 C COMMON 
EXTERNAL NAMES 
ooo002 Es SSE 
000054 — TIME 
000106 E SYSGET 
ooo11l € 
000000 E VSRERR 
000000 E VS$RERI 
ooorz1— = $11 
000135 E —_$ND 
000207 E 10CHK 
oo0eI6 Es $ST. 
SYMBOL TABLE 
000223 R Oo0001 
100004 R N 
oooo02 E ~—s SSE 
00000! ¢ PI 
oo0002 C P2 
000435 C —_ouT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT- 
000003 ¢ 
000244 C SECTOR 
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ooowe C Lso 
000447 C TUION 
000453 C Tis 
000457 C Tco 
000607 C OFLFCB 
000624 C OFTFCB 
000464 CLINE 
000007 R NAMOTE 
000007 R DATE 
000013 R 

000000 C_ TEST 
000243 C I 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo64e C LFILE 
000643 C NXTSCT 
000644 C IDTSCT 
000645 C IDTOSP 
000221 R 500 
000036 R 100 
000060 R os 
oooz24 R 000003 
o000s4 E TIME 
000225 R J 
000226 R 1 
000227 R 000074 
000230 R 000144 
000106 E SYSGET 
ooo € SHR 
000000 E VSRERR 
000000 E VS$RERI 
000140 R 

000131 E sil 
000135 E 

000207 


Ly} 
000216 E $sT 
0 ERRORS COMPILATION COMPLETE 
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1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO2 00001 
2c¢ 02 00002 
3 ¢ V.0.M. PART NO. 92L1105-0294 02 00003 
4 Cc 02 00004 
sc RELEASED 03-26-7 02 00005 
6 Cc 02 00006 
7c 02 00007 
ec NOL 02 c0008 
gc 02 00009 
10 ¢ 02 00010 
1M TITLE NOL 02 00011 
126 
13°C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES* 
4 
15 C V.D.M. PART NO. 92L1105-023A 
16 C 
17: ¢ RELEASED 03-26-7 
18 ¢ 
19 C 
20 ¢ COMMON 
21 ¢ 
ee Cc 
23 C HORN O Osama ener eee ERR HEE SE RODESSOSHESSEHE TEER EERE DEO SSO SOO D ERO ED 
ay ce DECLARE COMMON CELLS * 
PS C SPeneese eases ease eee S REO SSEESESSSSSSSES ESSE SESS ESSESES OSES DOES 
26 COMMON ITEST , PI » P2 » BUF =, INCHAR, SECTOR, IN 
e7 COMMON OUT , VTSOFL, VTSOFT, BLANK , LSON , LSD , TUION 
28 COMMON TIB  , TCD, LINE , LNCNT , LNMAX , PGCNT 
29 COMMON DFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IOTOSP 
30 INTEGER P1 3.Pe , OUT , VTSOFL, VTSOFT, BLANK , PGCNT 
31 INTEGER BUF (160), SECTOR(120), LSO ( 5), TUIDN( 4) 
32 INTEGER TIB ¢ 4), TCD (¢ 5), OFLFCB( 13), DFTFCB( 13) 
33 IN ie ¢ 80) 
34 CC teeneee eeeneeeeene seeeeeeneeneeene seee 
38 ce END OF COMMON DECLARATIONS . eoee 
3G C FBeeeereee reser een ee eee e ee DOO OSS SOSESHEETE SEDO SO ESSSEOSSEESESOESEEES SHOHOEED 
37 Cc 02 00013 
SQ Cases, INITIALIZE RMD FILES AND COMMON o2 00014 
39 CALL OVLAY (0, 0, GHCLEAR ) seeeenee 
40 C 02 00016 
St Conann ANALYZE THE USER'S INPUT 02 00017 
4e CALL OVLAY (0, 0, GHPARSE ) eonucene 
43 C 02 00019 
G4 Ceeenan PREPARE REPORT OF FINAL CONTENTS OF FILES 02 00020 
45 CALL OVLAY (0, 0, GHREPORT) sesapees 
46 02 00022 
47 ~-THEN RETURN CONTROL TO VORTEX 02 00023 
48 CALL EXIT 02 00024 
49 ENO 02 00025 
ENTRY/COMMON BLOCK NAMES 
000043 R 
000646 C COMMON 
EXTERNAL NAMES 
000034 E OVLAY 
oooo4!1 E- EXIT 
SYMBOL TABLE 
000001 C PL 
ooo00e C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C 
000244 C SECTOR 
oo0044e C u 
000447 C TUIDN 
000453 C TIB 
000457 C TCD 
000607 C OFLFCB 
000624 C OFTFCB 
000464 C LINE 
ocoooo C_ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSDN 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo64e C LFILE 
000643 C NXTSCT 
000644 C IDTSCT 
000645 C IDTOSP 
000034 E OVLAY 
o00042 R 000000 
oooo4! E EXIT 
0 ERRORS COMPILATION COMPLETE 
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KownyouLfun— 
eO2E9200000 


12 SUBROUTINE NUMBER‘ 1RAD) 
13. C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINE! 
4 C 
15 Cc V.0.M. PART NO. 92L.1105-023A 
16 C 
17 ¢ RELEASED -03-26-7 
18 ¢ 
19 C 
20 C 
21 ¢ 
22 C 
23 ¢ 
24 C 
25 °C ee 
26 COMMON ITEST , PI » Pe . BUF, _INCHAR, SECTOR, IN 
27 COMMON OUT » VTSOFL, VTSOFT, BLANK , LSON , LSD » TUION 
28 COMMON TIB_, TCD, LINE, LNCNT , LNMAX , PGCNT 
29 COMMON DFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTDSP 
30 INTEGER P1 » Pe + OUT _, VTSOFL, VTSOFT, BLANK . PGCNT 
31 INTEGER BUF (160), SECTOR(120), LSD ( 5), TUION( 4) 
32 INTEGER TIB. (¢ 4), TCD (¢ 5), OFLFCBC 13), OFTFCB( 13) 
33 EGE! 
34 C 
35 C¢ 
36 c* 
37 hCG: o4 
3a C SUBROUTINE NUMBER CONVERTS A NUMERIC CHARACTER STRING IN THE o4 
39 C INPUT BUFFER TO A BINARY VALUE. PARAMETER IRAD o4 
40 C DETERMINES THE DESIRED RADIX, FROM 1 TO 10. NUMBER IS ALWAYS 04 
41 Cc TRUE AND RETURNS THE BINARY VALUE IN COMMON CELL IVALUE o4 
42 oC 04 
43 C------' SET TEST FLAG TRUE, ZERO RESULT AND BACKUP INPUT POINTERS 04 
44 ITEST = 1 04 
45 IVALUE = 0 04 
46 CALL BACKUP 04 
47 C o4 
48 C------' NOW SEE_IF THE NEXT CHARACTER IS A NUMBER, IN THE SPECIFIED RADIXO4¥ 
49 1 CALL GETCHR 0 
50 IF CINCHAR - 176) 500, 200, 200 
51 200 IF CINCHAR - (175 + TRAO)) 210, 210, 500 
52 Cc 04 00027 
53 C------ INCHAR IS A LEGAL DIGIT, ADVANCE POINTERS AND ADD INTO RESULT 04 00028 
54 210 CALL ADVANC eeoeeene 
55 IVALUE = IVALUE * IRAD + (INCHAR - 176) 04 00030 
56 C 04 00031 
57 C------. AND THEN GO BACK AND TRY THE NEXT DIGIT 04% 00032 
58 Go TO 1 04 00033 
59 ¢ . * 
60 C----+-RETURN TO THE CALLER 
61 500 RETURN . . 
62 ENO 04 00034 
ENTRY/COMMON BLOCK NAMES 
000124 R NUMBER 
000646 C COMMON 
EXTERNAL NAMES 
oooo02 E —s SSE 
000024 E BACKUP 
000026 E GETCHR 
000064 E ADVANC 
SYMBOL TABLE 
000117 R 000001 
100004 R —-IRAD 
oooo02 E = SSE 
000001 ¢ PI 
000002 C P2 
000435 C OUT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 ¢ 
000244 C SECTOR 
oooww2 CL 
000447 C TUIDN 
o00453 CO CTIB 
000457 Cs TCD 
000607 C OFLFCB 
000624 C OF TFCB 
000464 C LINE 
ooo000 ¢ TEST 
000243 C INCHAR 
000434 ¢ IN 


00044) 


BITSET ( 88) 


THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOY 
o4 

V.0.M, PART NO. 92L.1105-030A 04 
RELEASED 03-26-7 ow 


NUMBER 04 


TITLE NUMBER OW 
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o00604 
000605 
000641 
000642 
000643 
oo0644 
000645 
000106 
000120 
oo0024 
000025 
o000e6 
000121 
000115 
000041 
000122 
000063 
000064 
000123 
0 ERROR‘ 


c 
c 
c 
c 
c 
c 
R 
R 
E 
R 
E 
R 
R 
R 
R 
R 
€ 
R 
Ss 


$1 
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orn nm ehh mh a at ee 
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1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA BACHINES 8 repels 
2c 10 00 
cae V.0.M. PART NO. 92L.1105-0314 10 00003 
4c 10 00004 
5 ¢ RELEASED —03-26-7 10 00005 
6 ¢ 10 00006 
7 6 10 00007 
ec PARSE 10 00008 
gc 10 00009 
10 ¢ 10 00010 
i TITLE PARSE 10 00011 
12 SUBROUTINE PARSE 1 
13°C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES: 
4 ¢ 
15 ¢ V.D.M. PART NO. 92L.1105-023A 
16 ¢ 
17 ¢ RELEASED  03-26-7 
18 ¢ 
19 C 
20 ¢ 
a1 ¢ 
22 ¢ 
23 ¢ 
a4 ¢ 
25 ¢ 
26 COMMON ITEST , Pe, BUF_, INCHAR, SECTOR, IN 
e7 COMMON OUT » VTSOFL, VTSDFT, BLANK , LSON , LSD » TUION 
28 COMMON TIB , TCD, LINE, LNCNT , LNMAX , PGCNT 
29 COMMON DFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTDSP 
30 INTEGER P1_ , P2 ~~, OUT _—_,_-VTSOFL, VTSOFT, BLANK , PGCNT 
31 INTEGER BUF (160), SECTOR(120), LSD ( 5), TUION (" 4) 
32 INTEGER TIB. ( 4), TCD (¢ 5), OFLFCBC 13), DFTFCB( 13) 
33 INTEGER LINE ( 
34 0 teeeeeeeeeees 
35 C * END OF CoM 
36 C #eeeeseerecoses 
37 ¢ 
3a C THIS SUBROUTINE PARSES THE INPUT STREAM AND SETS UP ALL 
39 ¢ THE VTAM RMD TABLES 
40 ¢ 
41 CONTINUE 
42 
43 
44H oC 
45 CC 
46 
47 C  ('LINE' <BYTE> * 
48 CALL COMPAR(O) 
49 IF (ITEST) 500, 2 , 500 
50 500 CONTINUE * 
51 ASSIGN 3 TO IRADO 10 oo024 
52 GO TO 9001 10 00025 
53 3 CONTINUE 
54 CALL COMPAR(1) 
28 CALL DIAG 
57 C------ SAVE LSD NUMBER AND SETUP DEFAULT LSD VALUES 
58 LSON = IVALUE 
59 MODE = 0 
60 Lso(1) = 
61 Lso(2) = -30067 
62 USD(3) = -32512 
63 LSO(4) = 150 
64 LSO(5) = 150 
8s 4 CONTINUE 
. 
67 CALL_COMPAR(2) 
68 7*ADDRESS''=' <BYTE> : 7BITSET(LSD(3) ,07,00, IVALUE)@ 
69 5 CONTINUE 
70 CALL COMPAR(3) 
a IF (ITEST) 501, 7 , S01 
72 801 CONTINUE 
73 CALL COMPAR(4) 10 00059 
™ CALL DIAG seeeeeee 
5 ASSIGN 8 TO IRADO 10 00061 
76 GO TO 9001 10 00062 
71 8 CONTINUE 10 00063 
78 CALL BITSET(LSD(3), 5, 0, IVALUE) 10 00065 
73 Go TO4 eeeeceee 
80 ¢ 7* CONNECT! ‘=! 10 00068 
81 7 CONTINUE 10 00067 
82 CALL COMPAR(5) 10 00069 
83 IF (ITEST) 502, 9 , S02 . . 
84 502 CONTINUE . 
85 CALL COMPAR(4) 10 00071 
86 CALL DIAG seenseee 
87 C ( ‘OIRECT* :2BITSET(LSD(1) 15.14.00 
88 CALL COMPAR(6) 
69 IF (ITEST) 503, 10 , 503 
90 503 CONTINUE 
91 CALL BITSET(LSD(1),15,14,0) 
92 Go TO 4 
93 ¢ 7*MODEM* 1 2BITSET(LSD(1),15,14, 100 
94 — 10 CONTINUE 
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506 


507 


508 


23 


2 


CALL COMPAR(7) 

IF (ITEST) 504, 

CONTINUE 

CALL BITSET(LSD(1),15,14,1) 

co TO 4 
7*DIAL* *~* 


12, 504 


*MODEM* 


CALL 
CALL 
CALL COMPAR(9) 
CALL 
CALL 
CALL 
CALL BITSET(LSO(1),15,14,2) 
Go TO 4 


) 
CONTINUE 
CONT INUE 
/*CRC*'-'*STOP''=' <BYTE> 
CONT INUE 
CALL COMPAR(10) 


IF (ITEST) 505, 14 , 505 
CONT INUE 

CALL COMPAR(9) 

CALL DIAG 

CALL COMPAR(I1) 

CALL DIAG 

CALL COMPAR(4) 

CALL DIAG 

ASSIGN 15 TO IRADD 
Go TO 9001 

CONTINUE 


GO TO CHECK FOR SYNCHRONOUS 
ASSIGN 9915 TO IRADO 

GO TO 9004 

CONT INUE 

CALL BITSET(LSD(4) , 12,10, IVALUE) 
co To4 

7"ECHO''=' <LOGIC> 

CONTINUE 

CALL COMPAR(12) 


IF (ITEST) 506, 16 , 506 
CONT INUE 

CALL_COMPAR(4) 

IF (CITEST.EQ.0)CALL DIAG 
ASSIGN 17 TO IRADO 

Go TO 9002 

CONTINUE 


GO TO CHECK FOR ASYNCHRONOUS 
ASSIGN 9917 TO IRADO 
GO TO 9003 
CONT INUE 
CALL BITSET(LSO(3),14,14,LOGIC) 
GO TOY 
7*EOM' '=" STOP! t=! 
CONT INUE 
CALL COMPAR(13) 
IF (ITEST) 507, 
CONTINUE 
CALL COMPAR(S) 
CALL DIAG 
CALL COMPAR(11) 
CALL DIAG 
CALL COMPAR(4) 
CALL DIAG 

( 'FALSE* 
CALL COMPAR(14) 
IF (ITEST) 508, 19 , 508 
CONTINUE 
CALL BITSET(LSD(3) ,15,15,0) 
Go TO 4 

“°C! <BYTE> 
CONTINUE 
CALL COMPAR(15) 
IF (ITEST) 509, 21 , 509 


CONTINUE 
or TO IRADD 


18 , 507 


ASSIGN 


CALL BITSET(LSD(2) ,15,08, IVALUE) 
',' <BYTE> 
CALL COMPAR(2) 


CALL DIAG 

ASSIGN 23 TO IRADOD 

GO TO 9001 

CONTINUE 

CALL BITSET(LSD(2) ,07,00, IVALUE) 
ye 


CALL COMPAR(16) 
CALL DIAG 
CALL BITSET(LSO(3),15,15,1) 


ASSIGN 24 TO IRADO 


BITSET ( 91) 


:?BITSETILSO(1),15,14,206 


: 7BITSET(LSD(4) 12,10, VALUED @ 


: 7BITSET(LSO(3),14,14,LOGICIe 


: ?BITSET(LSO(3),15,15,0)@ 


: BITSETI(LSO(2) , 15,08, IVALUED@ 


: 7BITSET(LSO(2) ,07,00, IVALUEI®@ 


: BITSET(LSO(3),15,15,1)¢ 


+ 7BITSET(LSD(2) , 15,08, IVALUED@ 


10 00080 
aeeeeeee 
eeeeeeee 
10 00082 
eennenee 
10 00083 
10 coos4 
10 00086 
eeeeneee 
10 00088 
eeneeeee 
10 00090 
eeneseee 
10 00092 
eeeeeeee 
10 00093 
10 00094 
10 00095 
10 00097 
10 00098 
10 00100 

. 


seeeeee 
seeeeeee 
10 00102 
Pererrt 
10 00104 
eeeeeeee 
10 00106 
coeneeee 
10 00108 
ooira 
00110 
oo1le 
00113 
00114 
00115 
00116 
00117 


10 00146 
10 00147 


2 
10 00173 
10 00175 
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192 GO TO 9001 10 00176 
193 24 = CONTINUE 10 00177 
194 CALL BITSET(LSD(2),15,08, 1VALUE) 10 00179 
195 CALL BITSET(LSD(2) ,07,00, 1VALUE) 10 00181 
196 CALL BITSET(LSD(3),15,15,1) 10 00182 
197 Go TO4 seeeeoee 
198 C ) 

199 25 CONTINUE 

200 20 = =6CONTINUE 

eo1 Cc /*ERROR''-"'STOP*'=* <LOGIC> : ?BITSET(LSD(4) ,13,13,LOGICIe 

202 18 CONTINUE 

203 CALL COMPAR(17) 

204 IF (ITEST) 510, 26 , 510 

205 510 CONTINUE 

206 CALL COMPAR(9) 10 00192 
207 CALL DIAG aaceseee 
208 CALL COMPAR(11) 10 00194 
e209 CALL DIAG sonenees: 
210 CALL COMPAR(4) 10 00196 
ail CALL DIAG souseses 
ale ASSIGN 27 TO IRADO 10 oo198 
213 Go TO 9002 10 00199 
214 27 ~~ CONTINUE 10 00200 
215 CALL BITSET(LSDO(4) ,13,13,LOGIC) 10 00202 
216 GO TO 4 eeeeesee 
217 ¢ LINE! =" TYPES a 10 00203 
218 26 CONTINUE 10 00204 
219 CALL _COMPAR(O) : 10 00206 
220 IF (ITEST) 511, 26, Sil eaeeneee 
e221 Sil CONTINUE coeeenee 
eee CALL COMPAR(9) 10 90208 
223 CALL DIAG seneeeee 
e224 CALL COMPAR(18) 10 00210 
2ee5 CALL DIAG eveesses 
226 CALL COMPAR(4) 10 00212 
227 CALL DIAG seeoeees 
eee C ( SHALF''=' ‘OUPLEX* : ?BITSET(LSD(1),10,09,0)¢ 10 00214 
2e9 CALL COMPAR(19) 10 00215 
230 IF (ITEST) 512, 29 , S12 

231 5le CONTINUE 

232 CALL COMPAR(9) 10 00217 
233 - CALL DIAG eoeeeses 
234 CALL COMPAR(20) 10 00219 
235 CALL DIAG eeeoseee 
236 CALL BITSET(LSO(1),10,09,0) 10 00221 
237 Go TO 4 sevecoes 
e38 Cc 7" SIMPLEX''=' "RECEIVE :?BITSET(LSD(1),10,09,1)@ 10 ooe22 
239 29 CONTINUE 10 00223 
240 CALL COMPAR(21) 10 00225 
e41 IF (ITEST) 513, 32 , SIS behets bed 
eve 513 CONTINUE ee . 
243 CALL COMPAR(9) 10 00227 
244 CALL DIAG eeeosece 
e45 CALL COMPAR(22) 10 00229 
e246 IF (ITEST) 514, 31 , S14 « bd 
247) 514 CONTINUE . 

e48 CALL BITSET(LSO(1),10,09,1) 10 00231 
249 GO TO 4 e e 
e250 C 7*SIMPLEX' '-'' TRANSMIT’ :7BITSET(LSD(1),10,09,2)@ 1 2 
251 31 CONTINUE 10 00233 
252 CALL COMPAR(23) 

253 CALL DIAG 

254 CALL _BITSET(LSD(1),10,09,2) 

255 GO TO 4 

e56 C 7'FULL'* =" *DUPLEX* : 7BITSET(LSD(1),10,09,3)@ 

257 32 CONTINUE 

e258 CALL COMPAR(24) 

259 CALL DIAG 

260 CALL COMPAR(S) 

261 CALL DIAG 

262 CALL COMPAR(20) 

263 CALL DIAG 

264 CALL BITSET(LSO(1),10,09,3) 

265 GO TO 4 

266 C ) 

267 33> CONTINUE 

268 30 © CONTINUE 

e269 C /*MODE''=' 

270 28 CONTINUE 

e271 CALL COMPAR(25) 

e7e IF (ITEST) 515, 34 , SIS 

273 «515 CONTINUE 

274 CALL COMPAR(4) 

275 CALL DIAG 

276 C ( 'A''SYNC' 'HRONOUS ' ??BITSETI(LSD(1),11,11,0)0 

277 CALL COMPAR(26) 

278 IF (ITEST) 516, 35 , 516 

e79 5I6 CONTINUE 

280 CALL COMPAR(27) 

281 CALL DIAG 

ese CALL COMPAR(28) 

283 CALL DIAG 

eeu 


e265 C --GO TO CHECK FOR ASYNCHRONOUS 
286 - ASSIGN 9935 TO IRADO 
287 Go TO 9003 


268 9935 CONTINUE 


VTAM AL BITSET € 93) 
289 CALL BITSET(LSD(1),11,11,0) 
e390 GO TO 4 
est ¢ /*SYNC* 'HRONOUS * :?BITSET(LSD(1), 11,11, 100 
e292 35 CONTINUE 
eg3 CALL COMPAR(27) 
294 CALL DIAG 
e295 CALL COMPAR(28) 
296 CALL DIAG 
297 C 
298° (G=s=<=-1 GO TO CHECK FOR SYNCHRONOUS 
e939 ASSIGN 9937 TO IRADD 
300 GO TO 9004 
301 9937 CONTINUE 
302 CALL BITSET(LSD(1),11,11,1) 
303 co TO4 
304 C ) 
305 37 > CONTINUE 
306 36 CONTINUE 
307 C¢ /*PARITY''=* 
308 34 CONTINUE 
309 CALL _COMPAR(29) 
310 IF (ITEST) 517, 38, 517 
311 517 CONTINUE 
312 CALL COMPAR(4) 
313 CALL DIAG 
314 C ("NONE * : ?BITSET(LSD(1),13,12,00e 
315 CALL COMPAR(30) 
316 IF (ITEST) 518, 39 , 518 
317 «518 CONTINUE 
318 CALL BITSET(LSD(1),13,12,0) 
319 GO TO 4 
320 C 7*0D0' :?7BITSET(LSO(1),13,12,1)¢@ 
321 39 CONTINUE 
322 CALL COMPAR(31) 
323 IF (ITEST) 519, 41 , SID 
3e4 519 CONTINUE 
325 CALL BITSET(LSD(1),13,12,1) 
326 GO TO 4 
3e7 ¢ / EVEN’ :2BITSET(LSO(1),13,12,2)@ 
3e8 41 CONTINUE 
3e9 CALL COMPAR(32) 
330 CALL DIAG 
331 CALL _BITSET(LSD(1),13,12,2) 
332 co TO 4 
333: ¢ ) 
334 42 = CONTINUE 
335 40 = CONTINUE 
336 «C /*SPEED''=' <BYTE> : 2BITSET(LSO(1) ,08,00, IVALUE)@ 
337 38 CONTINUE 
338 CALL COMPAR(33) 
339 IF (ITEST) 520, 43 , 520 
340 520 CONT INUE 
341 CALL COMPAR(4) 
342 CALL DIAG 
343 ASSIGN 44 TO IRADD 
344 GO TO 9001 
345, 44 =~ CONTINUE 
B46 CC 
SN? C=-==== ‘CONVERT SPEED FROM CHARS/SEC TO NO 500 MICRO/CHAR 
348 IF (IVALUE) 550, 550, 551 
349 550 IVALUE = 1 
350 551 IVALUE = 2000 / IVALUE 
351 IF (IVALUE - 511) 553, 553, 552 
352 552 IVALUE = 0 
353 553 CONTINUE 
354 C 
355 CALL BITSET(LSD(1) ,08,00, IVALUE) 
356 co TOY 
357 C /'STATUS''=" 
358 43 CONTINUE 
359 CALL COMPAR(34) 
360 IF (ITEST) 521, 45 , Sel 
361 521 CONTINUE 
362 CALL COMPAR(4) 
363 CALL DIAG 
364 C ( ‘uP! : ?BITSET(LSD(3) ,09,09,0)e 
365 CALL COMPAR(35) 
366 IF CITEST) 522, 46 , S22 
367 S22 CONTINUE 
368 CALL BITSET(LSD(3) ,09,09,0) 
369 Go TOY 
370 C /*DOHN' : ?BITSET(LSD(3) ,09,09,1)@ 
371 46 = CONTINUE 
372 CALL COMPAR(36) 
373 CALL DIAG 
374 CALL BITSET(LSD(3) ,09,09,1) 
375 Go TO 
376 C i) 
377 48 = CONTINUE 
378 47 CONTINUE 
379 C /*STORE''="'SYNC''=' <LOGIC> =: ?BITSET(LSO(4) ,15,15,NLOGICI@ 
380 45 = CONTINUE 
381 CALL COMPAR(37) 
382 IF (ITEST) 523, 49 , S23 ~ 
383 523 CONTINUE 
384 CALL COMPAR(S) 
385 CALL DIAG 
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10 00285 


10 00286 
10 00287 
10 002869 
10 00290 


10 00294 
seeeeeee 
10 00296 
10 00297 
e oo 


10 00299 


aeeeesee 


10 00300 
10 00301 
10 00303 


rs 
10 00306 
10 00307 
10 00309 


10 00311 


10 00339 


seeneeee 
10 00341 
10 00342 
rr 


10 00344 


eeeceeee 


10 00345 
10 00346 
10 00348 


0 


eeeseees 


10 00351 


prrsrrsyy 
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386 CALL COMPAR(27) 
387 CALL DIAG 
388 CALL COMPAR(4) 
389 CALL DIAG 
390 ASSIGN 50 TO IRADD 
391 GO TO 9002 
392 50 CONTINUE 
393 C 
394 C------ GO_TO CHECK FOR SYNCHRONOUS 
395 ASSIGN 9950 TO IRADD 
396 GO TO 3004 
397 9950 CONTINUE 
398 CALL BITSET(LSD(4) ,15,15,NLOGIC) 
399 Go TO 4 
400 ¢ 7*SYNC''=" 
401 49 CONTINUE 
402 CALL COMPAR(27) 
403 IF CITEST) 524, 57 , 524 
4o4 524 CONTINUE 
405 CALL COMPAR(9) 
406 IF (ITEST) 525, 51 , 525 
407 525 CONTINUE 
4os C 
409 C-----~ GO _TO CHECK FOR SYNCHRONOUS 
410 ASSIGN 9953 TO IRADO 
411 GO TO 9004 
412 9953 CONTINUE 
413°C ( 'TRANSMIT''=' <BYTE> 
414 CALL COMPAR (23) 
415 IF (ITEST) 526, 52 , 526 
416 526 CONTINUE 
417 CALL COMPAR(4) 
418 CALL DIAG 
419 ASSIGN 53 TO IRADO 
420 GO TO 9001 
Yel 53 CONTINUE 
422 CALL BITSET(LSO(4) ,07,00, IVALUE) 
423 GO TO 
wey C /*RECEIVE''=' <BYTE> 
425 52 CONTINUE 
426 CALL COMPAR(22) 
427 CALL DIAG 
428 CALL COMPAR(4) 
429 CALL DIAG 
430 ASSIGN 56 TO IRADO 
431 GO TO 9001 
432 56 CONTINUE 
433 CALL BITSET(LSD(5) ,07,00, IVALUE) 
434 Go TO4% 
435 C¢ ) 
436 C /"SYNCHRONIZE''=' <LOGIC> 
437 SI CONTINUE 
438 CALL COMPAR(38) 
439 CALL DIAG 
440 CALL COMPAR(4) 
441 CALL DIAG 
442 ASSIGN 58 TO IRADO 
443 GO TO 9002 
way 58 CONTINUE 
445 C 
446 C-=---- GO _TO CHECK FOR SYNCHRONOUS 
447 ASSIGN 9958 TO IRADD 
448 GO TO 9004 
449 9958 CONTINUE 
450 CALL BITSET(LSD(4),14,14,LOGIC) 
451 Go TO4 
“52 C /*TRANSMIT''='*SPEED' ‘=! 
453 «57 CONTINUE 
454 CALL COMPAR(23) 
455 IF (ITEST) 527, 59 , S27 
456 527 CONT INUE 
457 CALL COMPAR(9) 
458 CALL DIAG 
459 CALL COMPAR(33) 
460 CALL DIAG 
461 CALL COMPAR(4) 
462 CALL DIAG 
463 C 
464 C------ GO TO CHECK FOR ASYNCHRONOUS 
465 ASSIGN 9957 TO IRADO 
466 GO TO 9003 
467 9957 CONTINUE 
468 6C ( 'HIGH' 
469 CALL COMPAR(39) 
470 IF (ITEST) 528, 60 , S28 
471 528 CONTINUE 
472 CALL BITSET(LSD(4),15,15,1) 
473 60 TO 4 
474 C 7*LOW" 
475 60 CONTINUE 
476 CALL COMPAR(40) 
477 CALL OLAG 
478 CALL BITSET(LSD(4) ,15,15,0) 
479 Go TO 4 
4eo ¢ ) 
“el CC /'TRANSPARENT''#=' <LOGIC> 


BITSET ( 


: 2BITSET(LSD(4) ,07,00, IVALUE)@ 


:?BITSET(LSD(5) ,07,00, IVALUE)@ 


: 7BITSET(LSO(4) ,14,14,LOGICI® 


: ?BITSET(LSO(4) ,15,15,1)9¢ 


:?BITSET(LSD(4) ,15,15,000 


2 2BITSET(LSO(3) , 14,14, IVALUE)@ 


Prrreriyy 
10 00376 
10 00377 
10 00379 
Prererrry 
eeeneeee 
10 00381 
seseneee 
eeeeseee 


10 00393 
10 00394 
10 00395 
10 00397 


10 00398 
10 00399 
10 00401 
aeeneeee 
10 00403 


10 00405 


10 00408 
10 00407 
10 00409 
Prerrrryy 
10 00410 
10 00414 
10 00415 
10 00417 


10 00419 


eeneeeee 
10 00431 
10 00432 


10 00434 
eeveneee 


Pererriyy 
10 00436 
rererrty 
10 00438 
rerrrryy 
10 00440 
rreeerryy 
00442 
00443 
00444 
00445 
00446 
00447 
0044s 

or 


oe 
00450 


eecceece 
10 00451 
10 00452 
10 00454 
seceenee 
10 00456 
eeeneres 
10 00457 
10 00461 
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482 
483 
484 
485 
486 
487 
488 
489 
490 
4g1 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 


59 


5e9 


CONTINUE 

CALL COMPAR(41) 

IF (ITEST) 529, 63 , 5e9 
CONTINUE 

CALL COMPAR(4) 

CALL DIAG 

ASSIGN 64 TO IRADO 

GO TO 39002 

CONT INUC 


--GO TO CHECK FOR SYNCHRONOUS 


ASSIGN 9964 TO IRAODD 

GO TO 9004 

CONTINUE 

CALL _BITSET(LSD(3),14,14, IVALUE) 
GO TO 4 

CONTINUE 

CONTINUE 


CALL COMPAR(42) 
CALL DIAG 


BITSET ( 95) 


: 7PUTLSDe 


-CHECK FOR MODE = ASYNCHRONOUS, ECHO = TRUE AND 


“LINE-TYPE .NE. HALF-DUPLEX 


CALL BITGET (1, Il, 11, LSOCI)) 
CALL BITGET (J, 14, 14, LSO(3)) 
CALL BITGET (K, 10, 09, LSO(1)) 
ASSIGN 9963 TO IRADO 
IF (CT .€Q. 0) .AND. (J .EQ. 1) 
CONTINUE 

~-REWRITE THE LSD TO THE FILE 
CALL PUTLSD 
Go TO 1 


+AND. (K .NE. 0)) GO TO 9005 


END OF LINE SECTION 


CONTINUE 


7 (TERMINAL 


9120 
ce 


° 


69 


531 


76 


CALL COMPAR(43) 
IF CITEST) 530, 68 , 530 
CONTINUE 


“CLEAR OUT THE COMMON TCD 


00 gi20 I= 1, 5 
TCO(1) = O 
SON = 0 


SETUP TCD DEFAULT VALUES 


TcO(2) = 135 
TCO(3) = 1 


--GO TO PARSE TUID AND SETUP TIB 


:?TUID® 
CALL TUID 
CALL DIAG 


CALL COMPAR(1) 
CALL DIAG 


$C 
CONTINUE 


. 
CALL _COMPAR(2) 
CODE’ '=* 
CALL COMPAR (44) 
IF (ITEST) 531, 72 , 531 


CONTINUE 

CALL COMPAR(4) 

CALL DIAG 
( 'aSCII' 

CALL COMPAR(45) 

CALL DIAG 

CALL BITSET(TCD(3),15,12,0) 

GO TO 69 
d 


/"DEVICES''=" <BYTE> 
CONTINUE 
CALL COMPAR(46) 
IF CITEST) 532, 75 , 532 
CONTINUE 
CALL COMPAR(4) 
CALL DIAG 
ASSIGN 76 TO IRADD 
GO TO 9001 
CONTINUE 
CALL BITSET(TCD(3) 03,00, 1VALUE) 
GO TO 69 
/*ECHO''=' <LOGIC> 


2 


: @BITSET(TCD(3),15,12,0)¢ 


: @BITSET(TCD(3) ,03,00, IVALUE@ 


1 ?BITSET(TCO(2),12,12,LOGIC)e@ 


10 00462 
10 00464 
Peererrsy 
. o 
10 00466 
seceenee 
10 00468 
10 00469 
10 00470 
10 00472 
00473 
00474 
00475 
00476 
00477 
seceeeee 
10 00478 
10 00479 
10 00480 
10 00483 
seeeeees 
00485 
00486 
00487 
oo4es 
00489 
00490 
00491 
00492 
00493 
00494 
00495 
00496 
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00497 
00498 
00499 
00500 
00501 
00502 
00503 
00506 
00507 
00508 
00509 
00510 
00511 
00514 
teeeeeee 
eeneeeee 


10 00516 


Prererrry 


eeeseeee 
10 00530 
10 00531 
enccesee 
10 00533 
10 00534 
10 00535 
10 00536 
10 00538 
0 0054 


10 00545 
10 00546 
seeeeees 
10 00548 
eerste 
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10 00553 
10 00554 
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oe oe 
10 00565 
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5 


533 


78 


80 


79 


535 


538 


539 


91 


200 
. 
. 


BITSET { 96) 


CONTINUE 
CALL COMPAR(12) 
IF CITEST) 533, 77 , 533 
CONTINUE 
CALL COMPAR(4) 
CALL DIAG 
ASSIGN 78 TO IRAOD 
Go TO 9002 
CONTINUE. 
CALL BITSET(TCD(2) ,12,12,NLOGIC) 
GO TO 69 
7*LINE' =" <BYTE> : 7BITSET(TCD(1) ,15,08, IVALUE)@ 
CONTINUE 
CALL COMPAR(0) 
IF CITEST) 534, 79 , 534 
CONTINUE 
CALL COMPAR(4) 
CALL DIAG 
ASSIGN 80 TO IRADD 
Go TO 9001 
CONTINUE 
CALL BITSET(TCD(1),15,08, IVALUE) 
LSON = IVALUE 
---READ IN THE ASSOCIATED LSD 
CALL _GETLSD 
Go To 69 
10 00593 
7*PROMPT' *=" <BYTE> : 2BITSET(TCD(2) ,07,00,1VALUE.@ 10 00594 
CONTINUE 10 00595 
CALL COMPAR(47) 7 
IF CITEST) 535, 81 , 535 
CONTINUE 
CALL COMPAR(4) 
CALL DIAG 
ASSIGN 82 TO IRADO 
Go TO 9001 
CONTINUE 
CALL BITSET(TCD(2) ,07,00, IVALUE) 
Go TO 69 
Z*STATUS' ' =! 
CONTINUE 
CALL COMPAR(34) 
IF (ITEST) 536, 83 , 536 
CONTINUE 
CALL COMPAR(4) 
CALL DIAG 
( 'uP* + ?BITSET(TCDI(3),15,15,00¢ 10 00613 
CALL COMPAR(35) 10 00614 
IF (ITEST) 537, 84 , 537 . 
CONTINUE 
CALL BITSET(TIB(3), 15, 15, 0) 10 00616 
Go TO 69 eeeneees 
7" DOWN’ : ?BITSET(TCDI(3),15,15,1)@ 10 00617 
CONTINUE 10 00618 
CALL COMPAR(36) 10 00620 
CALL DIAG seeneene 
CALL BITSET (TIB(3), 15, 15, 1) 10 00622 
GO To 69 rrrrerrry 
» 10 00623 
7° TYPE! ' = 10 00627 
CONTINUE 10 00628 
CALL COMPAR(18) 10 00630 
IF C(ITEST) 538, 87 , 538 eeaeenee 
CONTINUE. eneeeeee 
CALL COMPAR(4) 10 00632 
CALL DIAG eeseeees 
C 'Ttyi : 2BITSET(TCD(3),11,08,00¢ 10 00634 
CALL COMPAR(48) 10 00635 
CALL DIAG eeneneee 
CALL _BITSET(TCD(3),11,08,0) 10 00637 
Go To 69 seseenee 
) 10 00638 
7*UNIT! '=" <BYTED :7BITSET(TCD(1),07,00,1VALUE)@ 10 00642 
CONTINUE 10 00643 
CALL COMPAR(4S) 10 00645 
IF CITEST) 539, 90 , 539 e ve 
CONTINUE seeveees 
CALL COMPAR(4) 10 00647 
CALL DIAG eeeeseee 
ASSIGN 91 TO IRADD 10 00649 
Go TO 9001 10 00650 
CONTINUE 10 00651 
CALL BITSET(TCD(1) ,07,00, 1VALUE) 10 00653 
Go To 69 rrrererty 
pF 10 00654 
CONTINUE 10 00655 
CALL COMPAR(42) 10 00659 
CALL DIAG seeseeee 
eo er nina n nanan nnn nnn nnn nn nn nn nnn nnn nn nnn nnn nnn nanan anna ** 10 00661 
GET TCXMM FROM LSXMM ** 10 00662 
a a a a ** 10 00663 
CALL BITGET(IVALUE,10,09,LS0(1)) 10 00665 
CALL BITSET(TCO(2),11,10, 1VALUE) 10 00667 
San aeigps blero nea aaa ** 10 00668 
GET TCD SWITCHED LINE (TCSWL) FROM LSD (LSASY) ** 10 00669 
a a a ** 10 00670 


PAGE 


VTAM Al BITSET (97) 
676 CALL BITGET(IVALUE,11,11,LSD(1)) 00672 
677 CALL BITSET(TCD(2) ,09,09, IVALUE) 00674 
678 00675 
679 Ce HANDLE ASNYC/SYNC - GET TCSHL FROM LSMOD 00676 
680 C ¢*-------------=----------~------+--------------------------------- 00677 
681 CALL BITGET(IVALUE,15,15,LSD(1)) 00679 
682 CALL BITSET(TCO(2) ,08,08, 1VALUE) 00681 
683 C 10 00682 
684 C------ OUTPUT THE NEW TCB AND TIB 10 00683 
685 CALL PUTTCO 10 00685 
686 C 00686 
687 C 00687 
688 C ooses 
689 Go TO 1 rrererrs 
690 ¢ _) 19 00689 
691 68 CONTINUE 10 00690 
692 C ##----------------------------------------------------------------- “10 00692 
693 C ** PROCESS 'END' DIRECTIVE 10 00693 
694 C *#----------------------------------------------------------------- 10 00694 
695 CALL COMPAR(50) 10 00696 
696 IF (ITEST) 540, 93 , 540 seeeveee 
697 540 CONTINUE seeeeeee 
698 CALL COMPAR(42) ooss8 
699 CALL DIAG * 
700 ¢ 10 00700 
701 C------1 RETURN TO THE NOL DRIVER 10 00701 
702 RETURN 10 00702 
703 ¢ 10 00703 
704 C 10 00704 
705 C SERIOUS SYNTAX ERROR HAS OCCURED (ILLEGAL DIRECTIVE) 10 00705 
706 ¢ CALL DIAG TO LIST ERROR AND ADVANCE TO END OF STMT 10 00706 
707 ¢ 10 00707 
708 C _/:?D1AGe $(- 10 00708 
709 = 93 CONTINUE 10 00709 
710 CALL DIAG 10 00711 
711 94 CONTINUE 10 00712 
Ne CALL COMPAR(42) 10 00713 
713 IF (ITEST) 95, 95, 1 seneseee 
714 95 CONTINUE 
115 CALL ADVANC 
716 
7 
118 
119 INLINE SUBROUTINE TO PROCESS BYTE STRINGS 
720 
71 
722 C <BYTE> = 
723. 9001 CONTINUE 
7e4 Cc ‘or : 7NUMBER (08)@ 
725 CALL COMPAR(51) 
726 IF CITEST) 541, 99 , S41 
727: 54t CONTINUE 
728 CALL NUMBER(08) 
729 GO TO IRADO 
730 c Os : 7NUMBER( 10) 
731 99 CONTINUE 
732 CALL_NUMBER(10) 
733 GO TO IRAOD 
734 
735 
736 
737 
738 
739 C <LOGIC> = 
740 9002 CONTINUE 
m1 © ( ‘TRUE : PBITSET(LOGIC,15,00,1)¢ 
72 CALL COMPAR(52) 
743 IF (ITEST) 542, 101, S42 
744 542 CONTINUE . * 
745 Logic =1 10 00754 
746 NLOGIC = 0 10 00755 
7 GO TO IRADO eeeseees 
748 C — /"FALSE' :?BITSET(LOGIC,15,00,0)¢ 10 00756 
749 101 =~ CONTINUE 10 00757 
750 CALL COMPAR(14) 10 00759 
751 CALL DIAG seeeseee 
752 Locic =0 10 00761 
753 NLOGIC = 1 10 00762 
754 GO TO IRADO 10 00772 
155 (C ¢#----------------------------------------------------------------- ** 10 00773 
756 INLINE SUBROUTINE TO INSURE THAT MODE 1S NOT SYNCHRONOUS ** 10 00774 
es ** 10 00775 
758 IF (MODE) 560, 560, 562 
759 MODE = 1 
760 IF (MODE - 1) 9005, 570, 9005 


IF (MODE) 566, 566, 568 


MODE = 2 
IF (MODE - 2) 9005, 570, 9005 
GO TO IRADO 
Perrerrys 
ween anna nena ao ---2- = 2222+ === $= - +--+ $= === === ------- ** 10 00791 
INLINE SUBROUTINE TO WRITE ERROR MESSAGE ** 10 00792 
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VTAM AL BITSET ( 98) 
DWTS C0 B8 ane enn enn rn enn ea enema ene n ns 
773°=«©9005 CONTINUE 
7714 CALL HEADER(2) 

775 WRITE (OUT, 9099) 

776 9099 FORMAT (35HO**ILLEGAL PARAMETER TYPE SPECIFIED) 
777 IF (1OCHK(T) .NE. 0) STOP 200 

778 C 

TS Cese=<-| RETURN TO THE CALLING RULE 

780 GO TO IRADD 


782 


781 C END; MON; 
I 


‘ND 
ENTRY/COMMON BLOCK NAMES 
003342 R PARSE 


000646 C COMMON 
EXTERNAL NAMES 

003036 E COMPAR 
003041 E DIAG 
00270! E BITSET 
002673 E BITGET 
002140 E PUTLSO 
002172 E 

oo2220 E  TUID 
002424 E GETLSD 
002707 E PUTTCD 
002752 E ADVANC 
003001 E NUMBER 
003141 E HEADER 
003144 E SHR 
000000 E VSRERR 
000000 E VS$RERI 
003150 € 

003200 E I0CHK 
003213 E $sT 

SYMBOL TABLE 

003226 R 000001 
003240 R 000002 
003242 R 000004 
ooooo! Cc PL 
oo000e C Pe 
000435 C OUT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C 

000244 C SECTOR 
ooow4e C Lu 
003243 R 000005 
000447 C TUION 
000453 C TB 
000457 C TcD 
000607 C DFLFCB 
003256 R 000015 
000624 C OFTFCB 
000464 CLINE 
000003 R 1 
oo00000 C_ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo64e C LFILE 
000643 C NXTSCT 
000644 C IDTSCT 
000645 C IDTOSP 
003036 E COMPAR 
003224 R 000000 
000015 R 500 
002143 R 2 
ooo024 R 3 
003225 R_ IRADO 
003217 R os 
002755 R 9001 
003041 E DIAG 
003227 R 

003230 R coo44e 
003231 R 105215 
003232 R 000443 
003241 R 000003 
003233 R 100400 
003234 R 000444 
003235 R 000226 
003236 R OO044S 
003237 R 000446 
000070 R 4 
000073 R 5 
000105 R 50} 
oo0131 R 7 
ooo12z1 R 8 
002701 E BITSET 
000143 R 502 
000243 R 9 
003244 R 000006 
000162 R 503 
000172 R 40 


00793 
00794 
00795 
00796 
00797 
00798 
oosco 
00801 
oosoe 
00803 
00804 
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003245 
003246 
003247 
oo0e04 
000214 
003250 
003251 
000243 
000243 
003252 
000255 
000322 
003253 
000303 
000312 
003103 
003254 
000334 
000403 
000364 
003011 
000373 
003054 
003255 


000415 
000577 
000446 
000456 
000470 
o00544 
000477 
oo0se1 
003257 
000553 
000577 
000577 
003260 
000611 
000647 
000637 
000661 
oo1041 
003261 
003262 
000712 
000734 
003263 
003264 
000746 
o0101e 
003265 
000765 
000775 
003266 
003267 
001041 
001041 
003270 
001053 
0011S4 
003271 
001072 
001123 
003272 
003273 
001113 


OO114Y 
001154 
001154 
003274 
001166 
001254 
003275 
001205 
001215 


DDVD VDDD VDDD OD VVODVVDVVMVDVDVVVDVVVVDD DD VOD DVDDD DVD DODO OD VVVDVVOVVVVVVVVODVVVVDUVDD DHDVVDDVDDVVOD VOD VV VIDVVD 


000017 
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003305 
001437 
001437 
003306 
001451 
001516 
001477 
001506 
003307 
001530 
001700 


001542 
001640 
001551 
001563 
001607 
001577 
001630 
003310 
001661 
001670 
001712 
001777 
001740 
003311 
001752 
001762 
003312 
003313 
002011 
oo2044 
002025 
002034 
002044 
003314 
002673 
003315 
003316 
003317 
002137 
003320 
003321 
003140 
002140 
003322 
002155 
oo0e712 
002161 
003323 
002172 
003324 
003325 
003326 


002220 
002230 


003340 
002767 


D DMDDVDD ODM BD DVD DDD DDD VDVDDUMVDVDVDVDDAVDBDVDVVVVVIM BDVDVOMADDVDOMVDBDDVDVDOM DVD VDVDDDDVVVDVVMDVVVVVVDVVVWYD BHOVHDVVVDVIVAD 


000044 


BITSET 


€ 100) 
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003000 R 

003001 E NUMBER 
003341 R OO0064 
003023 R 542 
003035 R 101 
003065 R 560 
003071 R 562 
003132 R 570 
003114 R 566 
003120 R 568 
003141 E HEADER 
003144 E SHR 
000000 E VSRERR 
000000 E V$RERI 
003153 R 9099 
003150 E SND 
003200 E I0CHK 


003213 E $sT 
O ERRORS COMPILATION COMPLETE 
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e 
Cc 
c 
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c 
c 
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Cc 


-oomrourcun— 


o 
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£ 
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BITSET ¢ 102) 


THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA HACHINE SOS 00001 
v.0.M. PART NO. 92L1105-032A 


RELEASED 03-26-7 


PUTLSD 


TITLE PUTLSD 


SUBROUTINE PUTLSD 


ie 00002 
08 00003 
os o0004 
os 00005 
08 00006 
os 00007 
08 00008 
og 00009 
os 00010 
os 00011 


ooo12 


os 
THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES**#####9% 


Vv.0.M. PART NO. 92L1105-023A 


weeee 
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aneee 
. 
eaeee 
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RELEASED 03-26-7 


COMMON 


SHOR R ERED OEEE OEE RO OHEDEEOEOTSEOENEESOOUCSSOTEOESEOU ERED ESE OSOEED 


DECLARE COMMON CELLS * 
PORE ORES DEORE ESE E SORES ESEOEESOESES OOOO SSC SESUHSES TESS SE SESERE 
COMMON ITEST , Pl Pe » BUF =, INCHAR, SECTOR, IN 
COMMON OUT » VTSDFL, VTSOFT, BLANK , LSON , LSD » TUION 
COMMON TIB_, TCD, LINE , LNCNT , LNMAX , PGCNT 

COMMON OFLFCB, DFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IOTOSP 
INTEGER P1 » P2 ouT » VTSOFL, VTSOFT, BLANK , PGCNT 
INTEGER BUF (160), SECTOR(120), LSD" ¢ 5), TUION (¢ 4) 


INTEGER TIB) ¢ 4), TCD (¢ 5), DFLFCB( 13), DFTFCB( 13) 
INTEGER LINE ( 80) 


EONS OOOHEEREEOESEESOEEOFERED ESOS DEEDES ESOS EDS OS DOSES OR ERED ODEEED 


END OF COMMON DECLARATIONS . 


SOEREEDEESEFERORESESESTOTED SEDO EO DSOS EOE S ESOS seeeeeneenene 


THIS ROUTINE IS CALLED WHENEVER AN LSD IN THE COMMON VECTOR 
"LSD' IS TO BE REPLACE IN THE FILE 'VTSDFL'. COMMON CELL 

*LSON' INDICATES THE NUMBER OF THE LSD THAT IS TO BE WRITTEN. 
FIRST THE SECTOR NUMBER AND DISPLACEMENT OF THE LSD IS COMPUTED. 
THEN A CHECK IS MADE TO SEE IF THE READ IS 

NECESSARY. IF IT IS, THE SECTOR IS READ. THEN THE LSD IS 
MOVED INTO THE SECTOR BUFFER, AT THE PROPER DISPLACEMENT, 

Fit i SECTOR IS REWRITTEN. A NORMAL RETURN IS MADE TO THE 
‘ALLER. 


RETURN IF FILE IS NOT OPEN 
IF (OFLFCB(5)) 500, 500, 100 


COMPUTE THE SECTOR AND DISPLACEMENT OF THE LSD 
ISECT = LSON / 24 + 1 


IDISP = LSDN - (ISECT - 1) © 2Y 
IDISP = IDISP * 5 


FIRST SEE IF REQUIRED SECTOR IS _IN COMMON 
IF ((LFILE .EQ. 1) .AND. (DFLFCB(4) .E£Q. ISECT)) GO TO 200 


feccee a NOT IN COMMON, THUS READ THE SECTOR 
LE = 

OFLFCB(4) = ISECT 

READ (VTS$OFL) SECTOR 

OFLFCB(4) = ISECT 

IF (LOCHK(I)) 530, 200, 530 


‘NOW MOVE LSD TO SECTOR AND REWRITE 
CONTINUE 

bdo 210 t=1,5 

J= IDISP + I 

SECTOR(J) = LSD(I) 

CONTINUE 

WRITE (VTSOFL) SECTOR 

OFLFCB(4) = ISECT 

IF (IOCHK(1)) 530, 500, 530 


ZERO OUT COMMON LSO AND LSD NUMBER 
CONTINUE 

00 510 f= 1,5 

LSsD(I) = 0 

LSON = 0 


AND MAKE A NORMAL RETURN TO THE CALLER 
RETURN 


--STOP cae FILE ERROR 


STOP 31 
ENO 


ENTRY/COMMON a ore NAMES 
000307 R PUTLSD 
000646 C COMMON 
EXTERNAL NAMES 


000121 


c 


SRD 


000000 E VSRERR 
000000 E V$RERI 


eeeneene 
seeee 


08 00024 
seneeeee 
08 00026 
08 00027 


08 00060 


PAGE 


VTAM AL 
000210 E $11 
oo02i4 E $ND 
000223 E LOCHK 
000250 E $00 
oo02o4 E SWR 
000266 E $sT 
SYMBOL TABLE 

000273 R o00001 
000001 C PI 
ooo00e C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VISDFT 
000440 C BLANK 
000606 C PGCNT 
000003 C 

000244 C SECTOR 
ooo442 C u 
000276 R 000005 
000447 C TUIDN 
000453 C TIB 
000457 C Tco 
000607 C DFLFCB 
000624 C OFTFCB 
900464 C LINE 
oooo0e Cc _ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C_ LNMAX 
000641 C IVALUE 
ooo64e C LFILE 
000643 C NXTSCT 
000644 C IOTSCT 
000645 C 10TOSP 
000271 R 000613 
000256 R os 
000233 R 500 
000013 R 100 
000274 R_ISECT 
000272 R 000030 
000275 R_ IDISP 
000277 R 000612 
000300 R $1 
000150 R 200 
oootel E $RO 
000000 E V$RERR 
000000 E VSRERI 
000210 E sil 
000214 E $NO 
oo0223 E 10CHK 
000301 R 1 
000265 R 530 
000175 R 210 
000302 R J 
000303 R 000243 
000304 R OOO4) 
000305 R $10 
000250 E $00 
000204 E SHR 
000237 R 510 
000306 R 000000 
000266 E $s’ 


0 ERRORS COMPIL/.TION CC @ .ETE 


BITSET 


( 103) 


PAGE 


Prot 


own your uWN— 


VTAM Al BITSET ¢ 104) 
C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO7 00001 
c 07 oo000e 
c v.0.M. PART NO. 92L 1105-0334 07 00003 
c 07 00004 
c RELEASED 03-26-7 07 00005 
c 07 00006 
Cc 07 00007 
c PUTTCO 07 00008 
c 07 00009 
c 07 00010 
TITLE PUTTCD 07 00011 
SUBROUTINE PUTTCD 07 00012 
C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES** 
c 
c Vv.0.M. PART NO. 92L1105-023A 
c 
c RELEASED 03-26-7 
c 
c 
c COMMON 
Cc 
c 
c 
c 
c 
COMMON I » Pl ' » Bul . ’ . 
COMMON OUT . VTSOFL, VTSOFT, BLANK , LSON , LSO » TUIDN 
COMMON TIB » TCO » LINE _, LNCNT , LNMAX , PGCNT 


COMMON OFLFCB, DFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTOSP 
INTEGER PL » Pe . OUT » VTSOFL, VTSOFT, BLANK , PGCNT 
INTEGER BUF (160), SECTOR(120), LSD ( 5), TUION ( 4) 

INTEGER TIB) ¢ 4), TCO 
NTEG 


ce eee 

ce 

ce 

c 07 00013 

C=: -IF FILE IS CLOSED, SKIP TO RETURN 07 00014 
IF (DFTFCB(5)) 500, 500, 10 sevensee 

c 07 00016 

Coween=! SEARCH INDEX BLOCK FOR DUPLICATE TUIO 17 

10 ISECT = 1 


LFILE = 2 
100 OFTFCB(4) = ISECT 
READ (VTSOFT) SECTOR 
OFTFCB(4) = ISECT 
IF (IOCHK(1)) 640, 120, 640 


Cc 

Ceancans: IF NO ENTRIES, SKIP SEARCH LOOP 

dee IF (SECTOR(1)) 150, 150, 130 

Cae=s==| NOW SEARCH THIS INDEX SECTOR FOR TUID MATCH 
130 IDISP = 0 


N = SECTOR(1) 

DO 140 I= 1,N 

IDISP = IDISP + 4 

IF (TIBCL) - SECTOR(IOISP+1)) 140, 138, 140 
138 IF (TIB(2) - SECTOR(IDISP+2)) 140, 400, 140 


140 CONTINUE 07 00035 
c 07 00038 
C------ NO MATCH IN CURRENT SECTOR, SEE IF THREAD IS NULL 07 00037 
150 CONTINUE 07 00038 
CALL BITGET (ISECT, 14, 7, SECTOR(3)) 
IF (ISECT) 160, 160, 100 
160‘ ISECT = DFTFCB(4) 
c 07 00042 
C------ NOW FIND SPACE FOR INDEX STORAGE 43 
7 IF (SECTOR(1) - 29) 240, 170, 170 
C------1 NEW INDEX SECTOR IS REQUIRED, ALLOCATE AND THREAD 


170 ISECT = NXTSCT 
NXTSCT = NXTSCT + 1 
CALL BITSET (SECTOR(3), 84%, 07, ISECT) 
WRITE (VTSOFT) SECTOR 
IF (IOCHK(I)) 640, 210, 640 


Cres=—=| NOW ZERO AND WRITE OUT THE NEW SECTOR 
210 00 220 1 = 1, 120 
220 SECTOR(I) = 0 

OFTFCB(4) = ISECT 

WRITE (VTSOFT) SECTOR 

DFTFCB(4) = ISECT 

IF (IOCHK(1)) 640, 240, 640 


Cress== NOW REMEMBER LOCATION OF INDEX SLOT 
240 IOXSCT = ISECT 
IDXOSP = (SECTOR(1) + 1) #4 


C------1 ‘NOW FIND SPACE FOR DATA STORAGE 
ISECT = IDTSCT 
10TOSP = IDTOSP + & 
IDISP_ = I1OTOSP 
IF (IDTOSP - 116) 340, 340, 310 


PAGE 


= 


VTAM AL BITSET 


95 C------NEW DATA SECTOR IS REQUIRED, ALLOCATE AND ZERO 
96 310 ISECT = NXTSCT 

97 IDTSCT = ISECT 

98 IDTOSP = 0 

gg NXTSCT = NXTSCT + 1 
100 1O1SsP = 0 

101 00 320 1 = 120 
102 320 SECTOR(I} = 0 

103 OFTFCB(4) = ISECT 
104 GO TO 350 

105 C¢ 

106 C------ READ OLD DATA SECTOR 
107 340 OFTFCB(4) = ISECT 
108 READ (VTSOFT) SECTOR 
109 OFTFCB(4) = ISECT 


IF (IOCHK(1)) 640, 350, 640 


it) 

1 

2 Ree---= NOW MOVE TCD TO SECTOR AND REWRITE 
3 (350 00 360 1 = 1, 5 

4 J = I01SP + I 

5 360 SECTOR(J) = TCD(I) 

6 WRITE (VTSOFT) SECTOR 

7 OFTFCB(4) = ISECT 

8 IF CIOCHK(I)) 640, 362, 640 


119 C 

186 ‘C+-==-=| NOW UPDATE TI8 AND REPLACE IN INDEX SECTOR 
121 362 CONTINUE 

122 CALL BITSET(TIB(3), 14, 07, ISECT) 
123 CALL BITSET(TIB(3), 6, 0, IDISP) 
124 ISECT = IOXSCT 

125 IO1SP = IDXDSP 

126 OFTFCB(4) = ISECT 

127 READ (VTSOFT) SECTOR 

128 OFTFCB(4) = ISECT 

1 IF (1OCHK(1)) 640, 368, 640 

130 C 

T3t 'C=Ss==4 NOW MOVE TIB TO SECTOR AND REWRITE 
132 368 00 370 1 = 1,4 

133 J = IOISP + I 

134 370 SECTOR(J) = TIB(T) 

135 SECTOR(1) = SECTOR(1) # 1 

136 WRITE (VTSOFT) SECTOR 

137 OFTFCB(4) = ISECT 

138 IF (IOCHK(1)) 640, 500, 640 

139 C 

180 .C-a===1 HERE DUPLICATE TUID WAS FOUND, FIRST ISSUE MESSAGE 
141 400 CALL _HEADER(2) 

142 WRITE (OUT, 499) TIB(1), TIB(2) 
143 499 FORMAT (11HO**DUP TUID, 1X, 2 A 2) 
144 @ IF (LOCHK(1)) 620, 410, 620 

145 

S46 Cease==' ONLY POSSIBLE CHANGE TO TIB IS UP/DOWN SWITCH 
147 410 CONTINUE 

148 CALL BITGET(I, 15, 15, TIB(3)) 
149 é CALL BITSET(SECTOR(IDISP+3), 15, 15, 1) 
150 

1S). C--s=<- REWRITE INDEX SECTOR 

152 WRITE (VTSOFT) SECTOR 

153 IF (IOCHK(1)) 64YO, 420, 640 

154 C 

185 iGess=<- EXTRACT POINTERS TO DATA SECTOR 
156 420 CONTINUE 

157 CALL BITGET(ISECT, 14, 07, SECTOR(IDISP+3)) 
es ” CALL BITGET(IDISP, 6, 0, SECTOR(IDISP+3)) 
1 

160 C------' READ DATA SECTOR 

161 OFTFCB(4) = ISECT 

162 READ (VTSOFT) SECTOR 

163 OFTFCB(4) = ISECT 

ee é IF CIOCHK(1)) 640, 430, 640 

16! 

166 C------| MOVE TCD TO DATA SECTOR 

167 430 oo wol=1, 5 

168 J= 101SP + I 

169 440 SECTOR(J) = TCD(T) 

170 C¢ 

17l) C------1 REWRITE DATA SECTOR 

172 WRITE (VTSOFT) SECTOR 

173 OFTFCB(4) = ISECT 

ed é IF CIOCHK(I)) 640, 500, 640 

1 

iS (Ceses-e=, ZERO OUT COMMON CELLS 

177 500 CONTINUE 

178 oo 510 tr =1,4 

179 TIB(1) = O 

160 510 TUIDN(T) = BLANK 

181 oo 5Se0 11,5 

162 520 Teo(l) = O 

163 C 

164 C------ ‘AND RETURN TO THE CALLER 

185 RETURN 

186 C 

187 C------ BELOW ARE THE 1/0 ERROR STOPS 


188 620 STOP 200 
189 640 STOP 400 


190 END 
ENTRY/COMMON BLOCK NAMES 


( 105) 


07 00095 
07 00096 
Preereee ey 
07 00097 
07 00098 
07 00099 
07 00100 
07 00101 
07 00102 

3 


. 
07 00105 
07 00106 


07 00125 
07 00126 
07 00127 
07 00128 
07 00129 
coeeeeee 
07 00131 
07 00132 
eeecese 
07 00133 
07 00134 
07 00135 
07 00136 
07 00137 
07 00138 
07 00139 
soveeoee 
07 00141 
07 00142 
seeeeeee 
07 00144 
07 0014S 
07 00146 
07 00147 
07 00148 
07 00149 


teeeeeee 


07 00162 


PAGE 


VTAM AL 
001404 R PUTTCD 
000646 C COMMON 

EXTERNAL NAMES 
001135 E $RO 
000000 E VSRERR 
000000 E VS$RERI 
001226 E $i 
001232 E 
o01241 E LOCHK 
001324 E $00 
O01122 E BITGET 
001051 E BITSET 
Oo1ee2 E SHR 
000766 E HEADER 
001340 E $sTt 

SYMBOL TABLE 
001344 R 000001 
001346 R 000002 
001355 R 000004 
000001 C PL 
ooo00e2 C Pe 
000435 C ouT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C BUF 
000244 C SECTOR 
001367 R 000170 
ooowye C sd 
001372 R 000005 
000447. C TUION 
000453 C TIB 
000457 C TcO 
000607 C DOFLFCB 
000624 C OFTFCB 
000464 C LINE 
oooo00 C_ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo642 C LFILE 
000643 C NXTSCT 
000644 C IOTSCT 
000645 C IDTOSP 
001343 R 000630 
001314 R os 
001251 R 500 
000013 R 10 
001345 R_ ISECT 
000023 R 100 
001347 R 000627 
001135 E SRO 
000000 E VSRERR 
000000 E V$RERI 
001226 E $11 
oo1e32 E ‘$NO 
001241 E TOCHK 
001350 R I 
001337 R 640 
000060 R 120 
001351 R 000244 
000160 R 150 
000070 R 130 
001353 R IDISP 
001352 R 000000 
001354 R N 
000152 R 140 
001356 R SI 
001357 R O004S3 
000131 R 138 
001360 R 000245 
001361 R OOO4SY 
000765 R 400 
001324 E $00 
001122 E BITGET 
001362 R 000016 
001363 R 000007 
001364 R 000246 
000177 R 160 
001365 R 000035 
000342 R 240 
000217 R 170 
001051 E BITSET 
ooleee E SWR 
000263 R 210 
000267 R 220 
001366 R 000243 
001370 R I1OxSCT 
001371 R IDxOSP 
001373 R 000164 
000470 R 34 
000406 R 310 
000443 R 320 


BITSET 


( 106) 


PAGE 
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000525 R 350 
000536 R 360 
001374 R J 
001375 R 000456 
001376 R $10 
000612 R 362 
001377 R 000455 
001400 R 000006 
000667 R 368 
000700 R 370 
001401 R O004S2 
000766 E HEADER 
oo101l0 R 439 
001333 R 620 
001035 R 410 
001402 R 000017 
001101 R 420 
OO1164 R 430 
OO1L75 R 440 
001265 R 510 
001403 R 000446 
001313 R 520 


001340 E $sT 
© ERRORS COMPILATION COMPLETE 


VTAM Al BITSET ( 108) 
1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOS 00001 
ec 08 00002 
= ¢ V.0.M. PART NO. 92L1105-034A 08 00003 
4 Cc 08 00004 
5 Cc RELEASED = 03-26-7 08 90005 
6c 08 00006 
7 ¢ 08 00007 
ec REPORT 08 00008 
2c 08 00009 
10 C 08 00010 
iW TITLE REPORT 08 00011 
12 SUBROUTINE REPORT oO 2 
13. C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES* . 
14 ¢ * ‘ 
15 ¢ V.0.M, PART NO. 92L1105-023A . . 
16 C * e 
17: C¢ RELEASED 03-26-7 ° e 
16 C * ° 
19 C . . 
20 ¢ COMMON * . 
a1 oc ° ° 
22 ¢ . . 
D3 C HOeeeeeenen ene neeee sees sense ese ROSES SSH EDEOESES OREN SESESEEORSESESS © . 
a4 c# DECLARE COMMON CELLS ee . 
eC eens eeteeeee . 
26 COMMON ITEST , PI + P2 » BUF —,_INCHAR, SECTOR, IN 
27 COMMON OUT , VTSOFL, VTSOFT, BLANK , LSON , LSD , TUION 
28 COMMON TIB , TCD, LINE, LNCNT , LNMAX , PGCNT 
29 COMMON DFLFCB, DFTFCB, IVALUE, LFILE , NXTSCT, IDTSCT, IDTOSP 
30 INTEGER PI » P2 . OUT _, VTSOFL, VTSOFT, BLANK , PGCNT 
31 INTEGER BUF (160), SECTOR(120), LSD ( 5), TUION ( 4) 
32 INTEGER TIB ¢ 4), TCD (¢ 5), DFLFCB( 13), OFTFCB( 13) 
33 INTEGER LINE ( 80) 
ZY C Ce eeeensen eens eeen een ee sete SESSA OGE ASSES OSES OES OOH SSH ESOS E ESSN OEEES 
35 Cc ® END OF COMMON DECLARATIONS . 
3G C tteeeenenee renee en eee sense sees eee Pee SSS OS SEDO OSOESEOOESE ONS ENOSONES 
37: C 
38 Cc THIS ROUTINE WRITES A FINAL REPORT OF THE CONTENTS OF THE 
39 g FILE VTSOFL ANO VTSOFT. 
40 
YE CHaseaa ‘SKIP LSD REPORT IF FILE IS CLOSED 08 00017 
42 IF (OFLFCB(5)) 200, 200, 10 seeeeoee 
43 OC 08 00019 
44 C---=-- PRODUCE A BINARY REPORT FOR EACH LSD ol 0 
45 10 LNCNT = LNMAX . . 
46 DO 100 LSON = 0, 255 08 00022 
47 CALL GETLSO 08 00023 
48 C . 08 00024 
4Q Co--=--! ‘SKIP REPORT IF LSD IS NOT DEFINED 08 00025 
50 CALL BITGET (1, 8, 8, LSO(3)) 08 00026 
51 IF (1) 100, 100, 20 e0eccese 
Se c 08 00026 
83) Ca-==<+ OUMP OUT THIS DEFINED LSD 08 codes 
54 20 CALL _HEADER(7) aeccccee 
55 WRITE (OUT, 199) LSON 08 00031 
56 199 FORMAT (IHO, 3HLSD, 14) os 
HE IF (IOCHK(1)) 620, 30, 620 * 
ec 
59 C------ DECOMPOSE EACH WORD ANO BIT 
60 30 00 901 = 1,5 : 
61 00 60 J= 1, 16 
62 k= 16-49 
63 CALL BITGET (BUF (J), K, K, LSOC(T)) 
64 80 CONT NUE 
65 WRITE (OUT, 197) (BUF(J), J = 1, 16) 
66 197 FORMAT (4X, 16 I 2) 
67 IF (IOCHK(J)) 620, 90, 620 seeccees 
68 90 CONTINUE os o0044 
69 100 CONTINUE 08 00045 
70 C 08 00046 
TW Cason ‘NOW PRODUCE REPORT FOR FILE VTSOFT, FIRST INSURE FILE IS OPEN 08 00047 
72 200 IF (OFTFCB(S)) 500, 500, 204 * e 
73 204 ~—LNCNT = LNMAX 
4 08 00050 
5 --INITIALIZE INDEX SECTOR POINTER 08 00051 
76 INDEX = 1 08 00052 
7 © 08 00053 
78 C------1 READ NEW INDEX SECTOR INTO CARD BUFFER 08 00054 
79 210 OFTFCB(4) = INDEX 08 00055 
80 LFILE = 0 08 00056 
81 READ (VTSOFT) (BUF(I), I = 1, 120) 08 00057 
62 IF CIOCHK(I)) 640, 212, 640 seeceeoe 
83 Cc 08 00059 
BY C------ GET NUMBER OF CURRENT ENTRIES AND MAKE CERTAIN THERE ARE SOME 08 00060 
85 212 Pe = BUF(I) * oe 
86 IF (P2) 260, 260, 214 
67 214 Pe = P2¢4 
ee Cc 
89 C------1 NOW HANDLE EACH ENTRY IN THIS SECTOR 
2 0O 250 P1 = 4, P2, 4 
1 
ge MOVE TO TIB VECTOR FOR EASY REFERENCE 
93 DO 220 1= 1,4 


J=Plel 


08 00070 


PAGE 


VTAM AL 


95 220 
Cc 


BITSET € 109) 


TIB(1) = BUFCU) 


---NOW EXTRACT ADDRESS OF DATA AREA 
CALL BITGET C(ISECT, 14, 7, BUF(P1+3)) 
CALL BITGET (IDISP, 6, 0, BUFIPI+3)) 


-~-SKIP READ IF SECTOR IS IN COMMON 
IF CCLFILE .£Q. 2) .ANO. (OFTFCB(4Y) .£Q. ISECT)) GO TO 222 


---SECTOR 1S NOT IN COMMON, READ IS REQUIRED 
LFILE = 2 
OFTFCB(4) = ISECT 
READ (VTSOFT) SECTOR 
OFTFCB(4) = ISECT 
IF CIOCHK(1)) 640, 222, 640 


---NOW THAT DATA SECTOR IS IN CORE, COPY TO VECTOR TCD 
00 e30 T= 1, 5 
J = IDISP + I 
TCD(1) = SECTOR(J) 


---NOW DUMP OUT THE TIB 
CALL HEADER(S) 
WRITE (OUT, 299) TIB(1), TIB(2) 
FORMAT (4HOTIB, 1X, 2 A 2) 
IF (IOCHK(1)) 620, 232, 620 


~---DECOMPOSE TIB, WORD 3 


te3 
DO 240 v= 1, 16 
K=16-J 


CALL BITGET (LINE(J), K, K, TIBCI)) 
WRITE (OUT, 197) (LINE(J), J = 1, 16) 
IF (LOCHK(J)) 620, 234, 620 


---DUMP OUT THE TCD 
CONT INUE 
WRITE (OUT, 295) TIB(1), TIB(2) 
FORMAT (4H PCD, 1X, 2 A 2) 
IF (I1OCHK(J)) 620, 236, 620 


--NOW DECOMPOSE THE TCD 


CONTINUE 
coasts, 5 
00 22 /= 1, 16 
K= 16-J 


CALL BITGET (LINE(J), K, K, TCD(I)) 
WRITE (OUT, 197) (LINE(J),.J = 1, 16) 
IF (IOCHK(J)) 620, 244, 620 

CONTINUE 


---HERE ALL ENTRIES IN THIS SECTOR HAVE BEEN PROCESSED 


CONTINUE 


---EXTRACT INDEX CHAIN, AND PROCESS IF NON-NULL 
CALL BITGET (INDEX, 14, 7, BUF(3)) 
IF (INDEX) 500, 500, 210 


--NOW MAKE A NORMAL RETURN TO THE NOL DRIVER 
RETURN 


---BELOW ARE THE 1/0 ERROR STOPS 
STOP 200 
STOP 400 
El 


ND 
ENTRY/COMMON BLOCK NAMES 
001233 R REPORT 
000646 C COMMON 
EXTERNAL NAMES 
000026 E GETLSD 
001137 E BITGET 
000612 E HEADER 


001061 E SWR 
000000 E VSRERR 
000000 E VSRERI 
001076 E sit 
OOILIO E $NO 
001112 E IOCHK 
OoNs1 E $00 
000525 E SRO 
001164 E sst 
SYMBOL TABLE 
001175 R 00000! 
001223 R oo0ode 
001214 R OOO004 
000001 Cc PL 
oo0000e C Pe 
000435 C ouT 
000436 C VTSDFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C 
000244 C SECTOR 
001212 R 000170 . 
ooowye C iS 
001205 R 000005 
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000447 C TUIDN 
000453 C TI8 
000457 C TcO 
000607 C OFLFCB 
000624 C DF TFCB 
ooo464Y CLINE 
ooooco Cc. ITEST 
000243 C INCHAR 
000434 C IN 
000441 C  LSON 
000604 C LNCNT 
000605 C LNMAX 
000641 C IVALUE 
ooo64e C LFILE 
000643 C NXTSCT 
ooo644 C IOTSCT 
000645 C IOTDSP 
001167 R 000613 
001145 R os 
000227 R 200 
oo001s R 10 
000221 R 100 
001170 R 000000 
001206 R 000377 
000026 E GETLSD 
001137 E BITGET 
OOll7L R 1 
001172 R 000010 
001231 R 000003 
001173 R OOO44Y 
000044 R 20 
000612 E HEADER 
001174 R 000007 
001061 E 
000000 E VSRERR 
000000 E VSRERI 
000063 R 199 
001076 E Sil 
OOO E $NO 
ooll12 E 1OCHK 
001157 R 620 
oo0103 R 30 
000213 R 90 
000134 R 80 
001176 R J 
001177 R 000020 
001200 R 

001201 R 900002 
oo1202 R_ $i 
001203 R 000441 
001204 R $10 
001131 E $00 
000175 R 197 
001207 R 000630 
Oo1iss R 500 
000237 R 204 
001210 R INDEX 
000247 R 210 
001211 R 000627 
000525 E $RO 
OO1163 R 640 
000324 R 212 
001213 R 000003 
001136 R 260 
000340 R 214 
001130 R 250 
000374 R 220 
001215 R 000452 
001217 R_ISECT 
001220 R 000016 
001216 R 000005 
001221 R_ IDISP 
O012e2 R 000006 
000554 R 222 
000565 R 230 
001224 R 000456 
001225 R 000243 
001226 R 00001! 
000634 R 

001227 R 000453 
001230 R 000454 
000655 R 232 
000670 R 240 
001232 R 000463 
000756 R 234 
000776 R 295 
o0101I7R 236 


$sT 
0 ERRORS COMPILATION COMPLETE 


VTAM AL BITSET cui 
1 € THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO3 00001 
2c 03 00002 
3S € v.0.M. PART NO. 92L1105-035A 03 00003 
4c 03 00004 
5 Cc RELEASED  03-26-7 03 00005 
6c 03 00006 
Te SHRINK 03 00007 
8c 03 00008 
gc 03 00009 
10 TITLE SHRINK 03 00010 
MW SUBROUTINE SHRINK 9 
if © 
13°C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES® 
4 C * 
15 C V.0.M, PART NO. 92L 1105-023 * 
16 C . 
17 ¢ RELEASED  03-26-7 . 
18 ¢ . 
19 ¢ . 
20 ¢ COMMON * 
a1 c . 
22 C . 
BB C teecccccncccccccccceseccenseeecceceneeeseceseececsseeeoeeneeeeeneeees eo 
24 C * DECLARE COMMON CELLS ee 
2S C Ceeeeneneneeeeee sense eee sen ee eee sees ee eeeeeeeeeeeeeeeneeneseeneneeen & 
26 COMMON ITEST ,P1 , P2 __, BUF, _INCHAR, SECTOR, IN . 
27 COMMON OUT | VTSOFL, VTSOFT, BLANK , LSDN , LSD, TUION ®* 
28 COMMON TIB TCD » LINE _, LNCNT , LNMAX , PGCNT . 
29 COMMON OFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IOTSCT, IDTOSP * 
30 INTEGER Pl , P2 , OUT _. VTSOFL, VTSOFT, BLANK , PGCNT * 
31 INTEGER BUF (160), SECTOR(120), LSD | ( 5), TUION (' 4) . 
32 INTEGER TIB. (¢ 4), TCD (¢ 5), OFLFCB( 13), OFTFCB( 13) . 
33 INTEGER LINE ( 80) . 
EWE MTTTTTTYTITITICTTirrirrriririrriiirrirrieeerrirrriieirii reer e eee 
35 C * END OF COMMON DECLARATIONS oe 
JG C teeneceeneeneeeeeeeeeee eee eeeeeeeeeeeeeeee sees eeneenesereeeeesereeees 
37 € THIS ROUTINE 1S CALLED TO LEFT-JUSTIFY ALL NON-BLANK 
38 ¢ CHARACTERS IN THE INPUT BUFFER 
39 ¢ 
40 C------ SET DESTINATION POINTER 
41 y=0 
42 ¢ 
43 C------ SCAN WHOLE BUFFER, MOVING NON-BLANKS TO DESTINATION ADDRESS 
44 00 100 1 = 1, 160 
45 IF (BUF(I) -"BLANK) 80, 100, 60 seeceese 
46 OC 03 00022 
47 Ce-----1 COLUMN I 1S NON-BLANK, THUS MOVE IT 03 00023 
48 B60 Ju Jel eeeeeeee 
PH BUF (J) = BUFCI) 
50 C 
51 C------ IF NOT IN THE SAME PLACE, BLANK OUT SOURCE ADDRESS 
52 IF (1 - J) 90, 100, 90 
53 90 BUF (1) = BLANK 
54 100 CONTINUE 
56 C------ ALL BUFFER IS COMPRESSED, NOW UPDATE CHARACTER POINTERS 
57 Pi= Pl - P2411 
58 P2=1 
59 ¢ 
60 C----- AND RETURN TO THE CALLER 
61 RETURN 
62 


END 
ENTRY/COMMON BLOCK NAMES 
000134 R SHRINK 
000646 C COMMON 
EXTERNAL NAMES 


000126 R 000001 


000001 PL 
000002 Pe 
000435 OuT 
000436 C VTSOFL 
000437 C VTSOFT 
000440 BLANK 
000606 PGCNT 
000003 

000133 R 000240 
000244 C SECTOR 
ooo44e Lso 
000447 TUION 


000457 
000607 
000624 
O0046Y4 
000000 
000243 
000434 
000441 
000604 
000605 
000641 


ooo64e 


Cc 
Cc 
Cc 
Cc 
c 
c 
¢c 
Cc 
R 
c 
Cc 
c 
000453 C TIB 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
Cc 


PAGE 


VTAM AL BITSET « 112) PAGE 


O00643 C NXTSCT 
O00644 C IDTSCT 
000645 C IDTOSP 


000125 R J 
000124 R 000000 
ooo11I5 R os 
000074 R 100 
oo01e7 R 1 
000130 R o00002 
ooo131 R $1 
000027 R 60 
ooo1ize R $10 
000060 R 90 
000075 E $00 
0 ERRORS COMPILATION COMPLETE 


VTAM Al BITSET € 113) 

1 C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOS 00001 
2¢ 08 00002 
3 Cc v.O.M. PART NO. 92L 1105-0364 os 00003 
4 C¢ og 00004 
5 c RELEASED 03-26-7 os 00005 
6c os 00006 
7 Cc os 00007 
8c TUIO os 00008 
gc 08 00009 
1o Cc os 00010 
Lh TITLE TUIO 08 ooo1! 
12 SUBROUTINE TUID 08 oo01e 
13. C THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINES* 

Hw C 

15 & Vv.0.M. PART NO. 92L1105-023A 

16 

17: ¢ RELEASED 03-26-7 

18 C 

19 C¢ 

20 ¢ COMMON 

a1 ¢ 

ee c 

23 C SPOO been eran eenee sees eee rE see ee HOES HOES EOE ESES EEE OSESEDESEESSOSEDEOS 

nd DECLARE COMMON CELLS bd 

25 C PPR e eee nesses eeee eee esse SSE PSOE ESESETEESSESSESOEEOEEH SEES OEE OS ESD 

e6 COMMON ITEST , PI « Pe » BUF + INCHAR, SECTOR, IN 

27 COMMON OUT , VTSOFL, VTSOFT, BLANK , LSON , LSD , TUIDN 

28 COMMON TIB » TCO » LINE , LNCNT , LNMAX , PGCNT 

eg COMMON OFLFCB, OFTFCB, IVALUE, LFILE , NXTSCT, IOTSCT, IDTOSP 

30 INTEGER ?1 «Pe » OUT » VTSOFL, VTSOFT, BLANK , PGCNT 

31 INTEGER BUF (160), SECTOR(120), LSD ( 5), TUION ( 4) 

32 INTEGER TIB ( 4), TCO ( 5), DFLFCB( 13), DFTFCBC 13) 

33 TEGER 

34 OC aeeee seeee 

35 ¢ # ENO OF COMMON DI 

JG C teeeeeseceensencenes 

37: ¢ 08 00013 
38 oC THIS ROUTINE ATTEMPTS TO FIND A FOUR-CHARACTER TUID IN THE os 00014 
39 C INPUT STREAM, 

40 ¢ 

41 INTEGER CA + CZ + CO + cg 

42 DATA CA/193/, CZ/218/, CO/176/, C9/185/ 

43 C 

WY C==--=41 FIRST CLEAR OUT THE TUION VECTOR IN COMMON 

45 oo 101 =1,4 

ze oe TUION(1) = BLANK 

4 

SG! Ceassen NOW BACKUP POINTERS AND SET TEST FLAG FALSE 

4g CALL_BACKUP 
a é ITEST = 0 

1 

Se Ce=<<=-| FETCH FIRST CHARACTER OF TUID AND INSIST THAT IT'S ALPHA 

53 CALL GETCHR 

54 IF (INCHAR - CA) 200, 20, 20 

Fa ay IF (INCHAR - CZ) 30, 30, 200 

Sr Cease FIRST CHAR IS ALPHABETIC, SO SET FLAG TRUE AND STORE CHAR 

58 30 CALL_ADVANC 

59 ITEST = 1 

60 TUION(1) = INCHAR 

61 Cc 

Se 1Gasase NOW ATTEMPT TO LOCATE THREE MORE ALPHANUMERIC CHARACTERS 

63 do 100 1 = 2, 4 

64 CALL GETCHR 

65 IF CINCHAR - CO) 200, 40, 40 

66 40 IF (INCHAR - CZ) 50, 50, 200 

67 50 IF CINCHAR - CA) 60, 70, 70 

68 60 IF CINCHAR - C9) 70, 70, 200 

69 C¢ os oo04e 
fe)  Gaseaen) ALPHANUMERIC CHARACTER HAS BEEN FOUND, STORE IT IN VECTOR 08 00043 
71° «70 CALL ADVANC aeseeeeee 
Te TUIDN(I1) = INCHAR 08 0004s 
73 «+100 CONTINUE 08 00046 
™m C 08 00047 
Ie GssHese CLEAR TIB AND PACK TUID INTO TIB os 0004s 
76 200 CONTINUE os 0004s 
77 CALL BITSET (TIB(1), 15, 08, TUION(1)) 08 00050 
78 CALL BITSET (TIB(1), 07, 00, TUION(2)) 08 00051 
Hi CALL BITSET (TIB(2), 15, 08, TUION(3)) os 00052 
80 CALL BITSET (TIB(2), 07, 00, TUION(4)) os 00053 
81 TIB(3) = 0 08 00054 
82 TIB(4y) = 0 08 00055 
83 C 08 00056 
et C=-----| FOUR CHARACTER TUID IS COMPLETE, RETURN TO CALLER 08 00057 
85 RETURN os o00ss 
86 08 00059 


END 
ENTRY/COMMON BLOCK NAMES 
000310 R_ TUIO 
000646 C COMMON 
EXTERNAL NAMES: 
000215 E $00 
000036 E BACKUP 
000117 E GETCHR 
000177 E ADVANC 


PAGE 


VTAM AL BITSET C iis) PAGE 


000245 E BITSET 
SYMBOL TABLE 


000266 R 000001 
900275 R ooo00e 
000272 R 000004 
ooooo! Cc PL 
oo000e C Pe 
000435 C out 
000436 C VTSOFL 
000437 C VTSOFT 
000440 C BLANK 
000606 C PGCNT 
000003 C Bi 
000244 C SECTOR 
ooo44e C Lso 
000447 C TUIDN 
000453 C TIB 
000457 C TCO 
000607 C DFLFCB 
000624 C OF TFCB 
oo0464 CLINE 
000003 R CA 
000004 R cz 
000005 R co 
000006 R cg 
oooo00 C_ ITEST 
000243 C INCHAR 
000434 C IN 
000441 C LSON 
000604 C LNCNT 
000605 C_ LNMAX 
000641 C IVALUE 
ooo642 C LFILE 
000643 C NXTSCT 
000644 C IOTSCT 
000645 C IOTOSP 
000013 R 10 
000267 R I 
000260 R os 
000270 R 000446 
000271 R $1 
000215 E $00 
000036 E BACKUP 
000273 R 000000 
000117 E GETCHR 
000222 R 200 
000061 R 20 
000075 R 30 
000177 E ADVANC 
000274 R OOO447 
000214 R 100 
000132 R 40 
000146 R 50 
000162 R 60 
000176 R 70 
000245 E BITSET 
000277 R 000017 
000300 R 000010 
000276 R 000453 
000301 R 000007 
000302 R 000450 
000303 R 000454 
000304 R OO004S! 
000305 R o004s2e 
000306 R 000455 
000307 R 


000456 
OQ ERRORS COMPILATION COMPLETE 


VTAM AL NCM ( 115) PAGE 


1 EJEC 16 00001 
2 * THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA RACHINES tS ont 
a % 1 
ow V.D.M. PART NO. 92L1105-O037A 16 00004 
a¢ 16 00005 
6°¢ RELEASED 03-26-73 16 00006 
7¢ 16 00007 
ee 16 00008 
ge NCM eeeseses 
10 * 
W¢ 
12 TITLE NCM 
13 NLIS 

1289 LIST 

1290 * 

1291 TITLE NCM MAJOR ENTRY POINT 

12G2 SOOO eeeeeeeeneeeerees ee eeeee see EEDOe Ee Heese ese 

1293 * 

1294 * TITLE - NETWORK CONTROL MODULE 

1295 © 


1296 * PURPOSE - 


1297 * THIS IS THE MAIN ENTRY POINT FOR NCM. 
1298 * 
1299 * CALLING SEQUENCE - 
1300 * MP NETCON IN RESPONSE TO RTE SCHED 
1301 ¢ 
1302 * ENTRANCE PARAMETERS - 
1303 * — NONE 
1304 « 
ctecee 
000000 R 1306 NETCON EQU . TOP OF PARSING LOOP 16 00030 
000000 R 1307 NCH —EQU NETCON EQUATE FOR ENTRY POINT eneenee 
1308 IOMAC FORM =1,3,4,8 FORMAT FOR 1/0 MACROS, WORD 3 16 00031 
L31D SOPHO eee eee eee ee eT ESE HHO SEH EHS ESESESESES ESSERE REESE ESSE EESESEEOE ERED 16 00033 
i311 * SETUP AND ISSUE INITIAL MESSAGE * 16 00034 
1312 eeccccccccecccccceccvcccceseeeeccsseeuccceecccceesccoeesesoescsoesooese 16 00035 
000000 002000 A 1313 CALL —- MOVER, CNET, FLO1,LNET 16 00036 
000001 002237 R 
000002 002467 R 
000003 002527 R 
000004 000003 A 
000005 002000 A 1314 CALL TYPE ISSUE INITIAL MESSAGE 16 00037 
000006 002150 R 
000007 002000 A 1315 CALL KEY READ INPUT DIRECTIVE 16 00038 
000010 o02162 R 
OOODI1 10421 A 1316 LDA BADSYN PICK UP SYNTAX ERROR CODE 16 00039 
000012 006057 A 1317 STAE  ERRTYP STOW AS INITIAL ERROR CODE 16 00040 
000013 002455 R 
1318 Evec 16 00041 
1L31G SOPHO Ree e eee eee E SETH TESST EEH EOE SESESTEETESTT-CHFEHTESSTHSEESESEESESERE If ooo4e 
1320 * NOW BLANK OUT VERB HOLDER AND RESET BUFFER POINTER * 16 00043 
L321 SAPP eee te ererereeseeeeeeeeeeseHEsHeEeeeeeseeeeeeeeeeHesEEESESEeeESEeSS 16 DO0UY 


000014 034154 
000015 074155 
000016 006017 
000017 002463 
000020 055000 
000021 005145 
000022 144147 


1322 LOX NCO60a PICK UP POINTER TO HOLDER 16 00045 
1323 STX NCO620 STOW AS INITIAL HOLDER POINTER 16 00046 
1324 NCO410 LOAE BLANK PICK UP AN UNPACKED BLANK 16 00047 


1325 STA 0.x STOW IN HOLOER 16 00048 
1326 INCR 045 BUMP X REG AND COPY TO A REG 16 00049 
1327 suB NCO604 COMPARE TO END OF HOLDER 16 00050 


000023 001004 JAN NCO410 IF INSIDE, CONTINUE LOOP 16 00051 
000024 000016 
000025 006010 A 1329 LDAI BUF POINT TO INPUT BUFFER 16 00052 
000026 002766 
000027 004241 1330 LRLA 1 CONVERT TO BYTE ADDRESS 16 00053 
000030 006057 A 1331 STAE COLPTR STOW AS INITIAL FETCH POINTER 16 00054 


D> > D> VS >>>D>>> 
8 


000031 002453 


1333 SP eveeeeererereeeeeeeeseneeeseesseuHeeeesreHeHaeesseeauereseneeneeene® 16 00056 
1334 ¢ FETCH NEXT CHARACTER AND CHECK IF ALPHABETIC * 16 00057 
1335 *8eecesesccccecsssesscccasssssesenesseeesssseensessceseeseeseneneseses® 16 00058 
000032 002000 A 1336 NCO¥20 CALL FETCH,NCOSOO FETCH NEXT NON-BLANK 16 00059 
000033 001737 
000034 000060 
000035 006147 
000036 002462 


1337 SUBE CA COMPARE AGAINST LOWEST ALPHABETIC 16 00060 


000037 001004 JAN NCOS00 IF LOWER, CANNOT BE IN ALPHABET 16 00061 
000040 000060 
000041 006147 A 1339 SUBE CZMA SUBTRACT RANGE OF ALPHABET 16 00062 
000042 002464 
000043 001002 1340 JAP NCOSOO IF HIGHER, CANNOT BE IN ALPHABET 16 00063 


D> D> D>VDHDV> 
ow 
a 
o 


000044 000060 


1342 eeeeeneceveresesecereenscceneeesseenasesesssensesenesseesseesesssesess 16 D00ES 


1343 ¢ CHARACTER IS ALPHABETIC, STORE IN HOLDER * 16 00066 
[34H Ste seteseesereesanecsecesessoneseeeseosenesensocesocesesesesssesesesee® 16 00067 
000045 014125 A 1345 LDA NCO620 PICK UP CURRENT POINTER 16 00068 
OO0O4G 144123 A 1346 suB NCO604 COMPARE AGAINST HOLDER END 16 00069 
000047 001002 A 1347 JAP SYNERR IF TOO LARGE, SIGNAL SYNTAX ERROR 16 00070 
000050 000133 R 
O0005! O34121 A 1348 Lox NCO620 PICK UP HOLDER POINTER 16 00071 
000052 006017 A 134S° LDAE CHAR PICK UP THE CHARACTER 16 00072 
000053 002454 R 
000054 055000 A 1350 STA 0.x STOW IN VERB HOLDER 16 00073 
000055 044115 A 1381 INR NCO620 BUMP HOLDER INDEX 16 00074 


VTAM AL 


000056 
000057 


000060 
000061 
ooo062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 


000074 
000075 
000076 
000077 
000100 
ooo1ol 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 
000113 


ooo1ty 
000115 


000116 
000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 


000127 
000130 
000131 
000132 


000133 
000134 
000135 
000136 
000137 
000140 
ooo14! 
000142 
000143 
000144 
000145 
000146 
000147 


000150 
ooo1s1 
000152 
000153 
000154 
000155 
000156 
000157 
000160 


000161 
000171 
000172 


001000 
000032 


O34110 
005042 
015000 
004250 
115001 
056000 
005122 
005144 
005145 
144100 
001004 
000062 


006030 
000174 
014062 
145000 
001016 
000116 
014057 
145001 
001016 
000116 
014054 
145002 
001016 
000116 
014051 
145003 


001010 
000127 


005041 
120465 
005014 
006140 
000232 
001004 
000076 
001000 
000133 


015004 
054001 
001000 
000000 
000132 


014042 


002000 


001331 
006017 
002523 
006057 
002527 
002000 
002150 
001000 
000000 


Ooo16! 
000171 


DF HO DY HH Dy yy DE rr wy DPr>>yerrrrrr> 


Dr>DHDyS>>> 


DHDHDHVDHD SDH D> KH DVDDY>D>> 


1352 


JMP 


NCO420 


NCM ( 116) 
CONTINUE BUILDING THE VERB 


PAGE 


1354 PO ee reece eesee eee ee nesses eee ees eeE se ES SES OEPESSOEESSSSESSEESESSEOEEES 


END OF VERB HAS BEEN FOUND. PACK, IN PLACE, THE VERB 


1356 SPs eeeneecceeeneeeesee reese eee e sees eee ee eee Hees esse BSCE eT SOTHO SEE EOEEEe 


1355 ¢ 


1357 NCO500 
1358 
1359 NCOS10 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 


LOx 
xB 


NCO602 


045 
NCO604 
NCO510 


PICK UP START OF VERB 

coPY TO B REG 

PICK UP A CHARACTER 

SHIFT TO LEFT-SIDE 

OR IN RIGHT-SIDE 

STOW BACK IN HOLDER 

BUMP DESTINATION POINTER 

BUMP SOURCE POINTER 

BUMP SOURCE POINTER AND COPY T 
COMPARE AGAINST END OF HOLDER 
IF INSIDE, CONTINUE PACKING 


0 A REG 


13GQ SHOR eeeeee sees eee ee eee Eee EOE SSeS EOE EO ESOS ESOEESESESSDEESEESOOSESOSES 


NOW LOOK UP PACKED VERB IN TABLE 


137] #8ER OOO e eR Oat OREO OHO EEO HSESOS ESOS TOSS OS SEOSSESSEESSOESOSEUEOEES ONES 


1370 * 
1372 


1373 NCO520 
1374 
1375 


1376 
1377 
1378 


1379 
1380 
1381 


1362 
1383 


1364 


1386 * 
1387 
1388 
1389 
1390 
1391 
1392 


1393 
1394 


NCO530 


LDXI 


TXA 
ADD 
TAX 
SuBI 
JAN 


JMP 


NCO630 
NCO600 
0.x 
NCO530 
NCO600+1 
1,x 
NCO530 
NCO600+2 
2.x 
NCO530 
NCO600+3 


3,x 


NCO540O 


FIVE 

NCO634 
NCO520 
SYNERR 


POINT TO FIRST ROW IN TABLE 


PICK UP WORD 1 OF VERB 
COMPARE WORD 1 
IF NOT EQUAL, TRY NEXT ROW 


PICK UP WORD 2 OF VERB 
COMPARE WORD 2 
IF NOT EQUAL, TRY NEXT ROW 


PICK UP WORD 3 OF VERB 
COMPARE WORD 3 
IF NOT EQUAL, TRY NEXT ROW 


PICK UP WORD 4 OF VERB 
COMPARE WORD 4 


IF EQUAL, VERB IS FOUND 


01 
BUMP TO NEXT ROW 
COPY BACK TO X REG 
COMPARE TO END OF TABLE 
IF INSIDE, CHECK NEXT ROW 


ELSE FAILED TO MATCH ANY, SIGN. 


COORD OOOO OEE R DORE DE ESOC SEES OOSEESUDESEESOSOSETESEDSOSOESE 


ROW DID NOT MATCH, TRY NEXT ROW 


. 
eeee 


JAL ERROR 


13QG CORSO seen ee reeee neers ee EHO OOH OOEEESEHO ORES EEHOOE OOS OEEMESES OEE OUOHE OSS 


1397 © 


OIRECTIVE HAS BEEN RECOGNIZED, 


(4) POINTS TO MATCHING ROW = 


139B S8eeeseeneecesereseeseneeeHsee ee eSe OSES SORE EOHEHESEH HOSED OOS ESS ESOES 


1399 NCO54O 
1400 
1401 


1402 NCOS42 
1404 Seeees 


1405 ¢ 
1406 ¢ 


1407 @8ereeeeen seer eeeeeeee eee HCOOH OE EHOES HEHE ROTTER TOOT ED 


1408 SYNERR 
1409 


1410 


mil 
ie 
1413 


1414 
1415 
1416 
1417 


1418 


LDA 
STA 


Eau 


4.x 
NCcOS42 
0 


eee 


PICK UP ADDRESS OF PROCESSOR 
STOW IN JUMP 


JUMP TO PROPER DIRECTIVE PROCESSOR 
POINT TO ADDRESS PORTION OF JUMP 


eeeeee 


. 


SYNTAX ERROR HAS BEEN DETECTED, BLANK LINE AND ISSUE MESSAGE * 
THEN RETURN TO THE TOP OF THE MODULE. cj 


LOA 
STAE 


CALL 


NCO64O 
LINE 


PICK UP A DOUBLE BLANK 
STORE IN THE START OF THE LINE 


MOVER,LINE,LINE+1,LNENO-LINE~1 


ERRTYP 
FLOL 
LSTCVT 


NC 
FLDL 
TYPE 
NETCON 


PICK UP ERROR CODE 
POINT TO MESSAGE LOCATION 
CONVERT TO ASCII 


PICK UP ‘NC’ 

STOW AS HEADER 

ISSUE ERROR MESSAGE 

RETURN TO THE TOP OF MODULE 


eeeecenenese 


1419 COeeceseeesseeseeesesesee eee ES EEE HON EOE SHOES ESOS SESH OEESUDECRESEERS 


CONSTANTS AND WORK AREAS 


1422 NCO6OO 
1423 NCO602 
1424 NCO6O4 


Bss 
DATA 
DATA 


8 
NCO600 
NCO602 


VERB HOLDER 


Prerrrrrrrrirrrrr iii) 


ADDRESS CONSTANT, VERB HOLDER START 
ADDRESS CONSTANT, VERB HOLDER END 


VTAM AL 


000173 
000174 
000175 
000176 
000177 
000200 
000201 

000202 
000203 
000204 
000205 
000206 
000207 
oo0e10 
000211 

oo0e1e 
000213 
000214 
000215 
000216 
000217 
000220 
000221 

000222 
000223 
000224 
o002e5 
000226 
000227 
000230 
000231 


000232 
000233 
000234 
000235 
000236 
000237 


000240 
oo0e41 
000242 


000243 
oo0e44 
000245 
000246 
000247 
000250 
000251 


000252 
000253 
000254 
000255 


ooc000 
142716 
142240 
120240 
120240 
000232 
152720 
120240 
120240 
120240 
000243 
151305 
142311 
151305 
141724 
000347 
151305 
151724 
147722 
142640 
000473 
142317 
153716 
120240 
120240 
000546 
146311 
151724 
120240 
120240 
000761 
000232 
000176 


006017 
002454 
006147 
002456 
001016 
000133 


006505 
000000 
000200 


000243 
002000 
002416 
002000 
002237 
002476 
002535 
oo0000e 


002000 
001353 
000262 
000315 


DDDH HHH VHS yyy Vy yy r Vy yy > Dey y>Dyryyr 


D>D>D> 


>m> 


> DDDY> DVD 


DDD> 


1425 
1426 


1427 


1428 


1429 


1430 


1431 


1432 
1433 


1434 


NCM € 17) PAGE 


NCO620 DATA oO POINTER TO NEXT SLOT IN HOLDER 
NCO630 DATA “END *,END 

DATA “UP ‘UP 

OATA ‘REDIRECT’ ,REDIR 

DATA ‘RESTORE ',RESTOR 


DATA * DOWN * DOWN 

DATA "LIST ‘LIST 
NCO634 EQU ° ENO OF VERB TABLE 
NCO64O EQU NCO630+2 POINT TO A DOUBLE BLANK 


16 
16 


00148 
00149 


00150 


00151 


00152 


00153 


00154 


1437 
1438 
1439 
1440 
1441 
1442 
1443 
T1444 
1445 
1446 
1447 
1448 
1449 


1450 
1451 


1453 
1454 
1455 
1456 


1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 


1474 


1476 
1477 
1478 
1473 


1481 
1482 
1483 


* TITLE - END DIRECTIVE PROCESSOR 
. 
* PURPOSE - . 
* THIS CODE SCANS THE END DIRECTIVE. . 
. . 
* CALLING SEQUENCE - . 
* MP END * 
‘ ° 
* ENTRANCE PARAMETERS - . 
©” NONE . 
. ° 
PPTTTTTTITTTTTTTETTTTTTieerTet Teer ey) 


PICK UP THE CURRENT CHARACTER 


END LOAE CHAR 
SUBE PERIOD 
JANZ SYNERR 


COMPARE AGAINST A PERIOD 
IF NOT PERIOD, SIGNAL ERROR 


POCO REDE REEDED DESERET REE DESO OSSTESED eeeeoeees 
: NOW REQUEST RTE EXIT . 
COCO COCR E ROSA D OSES HOES DERSSERESESSOSEOSERE OE EEES ESOS DODO OS ESSEOOHES 
EXIT EXIT REQUEST RTE EXIT 


TITLE - UP DIRECTIVE PROCESSOR 


PURPOSE - 
THIS ROUTINE SCANS AND PROCESSES THE UP DIRECTIVE. 
CALLING SEQUENCE - 
JMP uP 


. 
* 

. 

ENTRANCE PARAMETERS - 4 
NONE. . 

. 

. 


POPP Oe eee eee eee REESE EEE E SESE EOE SEESESESEEOSHSEES ESSE DENSE DOSER SES 


EQu * ENTRY POINT 
1210 CALL CHKCOM CHECK FOR DELIMITING COMMA 


CALL MOVER ,CUP ,FLD3,LUP 


Peeeeeeeeseeceneseseeeeeeeeee 
e SETUP CONSTANT PORTION OF MESSAGE AND CALI 


SOOO O CREE SEE RE ESTE EO EOET ETERS ESESCOOETESEEEEE 


CALL UNIT,NC1600,NC2000 


POCO COTS ESET ENTE ESET O OER OTE SECEDE SOEOCEOEESERUOEERES ESSE EERE EET OOS 


s IF CHARACTER IS A PERIOD, EXIT TO THE CALLER, ELSE TRY AGAIN ®* 


PROD O Cee EERO SE EROS EOE OEESEEOEEE ERE LOR ODES OSSTOSSSSCTOOTOHEUTEOTOEOED 


VTAM AL 


000256 
000257 
oo0260 
000261 


000262 
000263 
000264 


000265 


000267 
000270 
000e71 
oo00e72 
000273 
000274 
000275 


000276 
000277 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 
000313 
000314 


000315 
000316 
000317 


000320 
000321 
000322 
000323 
900324 
900325 
000326 
000327 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000340 
000341 
000342 
000343 
000344 
000345 
000346 


000347 
000350 
000351 
000352 
000353 
000354 


002000 
002425 
001000 
000243 


006037 
002451 
005001 


004251 


002000 
002043 


006017 
002434 
006030 
002532 
002000 
001331 
002000 
002237 
002472 
002527 
000002 
002000 
002150 
001000 
000256 


006037 
002451 
oosoo1 


004257 
135002 
004357 
150421 
004257 
135002 
oss00e 
002000 
002043 
002000 
002237 
002474 
002527 
ooco0e 
002000 
002237 
O02444 
002532 
000002 
002000 
002150 
001000 
000256 


000347 
002000 
002416 
oo02000 
001353 
000133 
000361 


D>>>y>r>er> rD> 


DYD>>DVDY> VY DY D> 


DED>HVDVVDHHVVVYS V> yyy yryry YH DP 


DDBD>D>D 


NCM ( 118) PAGE 


1484 NC1220 CALL CHKPER CHECK FOR TERMINATING PERIOD 
1485 JMP NC1210 IF MORE, CONTINUE SCAN 
Sse ceneeeececeseasaeeeceneeeeseeseneseesesess 
TO THE LSD 
ZERO A REG 
1492 SETA X,PSDWN ,PSOWNB ,PSDWNZ 
1493 CALL WRITE AND ASK FOR THE SECTOR TO BE REWRITTEN 
335 
1496 
1497 
1498 
1499 FLOe POINT TO THE MESSAGE AREA 
1500 LSTCVT CONVERT TO ASCII 
1501 MOVER, CLNE ,FLOI LUNE 
1502 CALL TYPE OUTPUT THE 'UP' MESSAGE 
1503 JMP NC1220 GO TO TRY FOR ANOTHER UNIT 
1504 
1505 
1506 
1507 eee 


1508 NC2000 LOXE BLKPTR POINT TO TIB 


1509 TZA ZERO A_REG 
1510 SETA X, TIOWN, TIOWNB, TIOWNZ 


1511 CALL WRITE REWRITE THE TIB 
1812 CALL MOVER, CTID,FLOI,LTID 


1513 CALL MOVER ,PTUID,FLO2,2 


1514 CALL TYPE ISSUE MESSAGE 
1515 JMP NC 1220 GO BACK AND TRY THE NEXT UNIT FIELD 


16 00207 
16 00208 
16 00209 
16 00210 
16 00211 
16 O0212 
16 00213 


16 00214 
16 00215 


16 00216 


00218 
00219 
o02e0 
00221 
16 00222 
16 00223 


16 00224 


16 00225 
16 00226 
16 00227 
16 00228 
16 00229 
16 00230 
16 00231 


16 00232 
16 00233 


16 00234 
16 00235 


16 00236 


1518 « ° 
1519 * TITLE - REDIRECT DIRECTIVE PROCESSOR . 
. 
PURPOSE - . 
THIS ROUTINE SCANS AND PROCESSES THE REDIRECT DIRECTIVE * 
. 
1524 * CALLING SEQUENCE - ~ 
1525 * UMP REDIR ‘. 
1526 © . 
1527 * ENTRANCE PARAMETERS - * 
1528 NONE . 
1529 = 
1530 eeeee * 
1531 REOIR EQuU id ROUTINE ENTRY POINT 
1532 NC2410 CALL CHKCOM CHECK FOR DELIMITING COMMA 
1533 CALL UNIT, SYNERR ,NC2430 
1535 oeeee eee 


1 
1536 * IF NOT TERMINATED BY A PERIOD, CONTINUE SCANNING THE DIRECTIVE * 


VTAM Al 


000355 002000 A 

000356 002425 R 

000357 001000 A 1539 JMP NC2410 IF MORE, CONTINUE SCAN 16 00262 
R 


000360 000347 


1544 NC2430 CALL CHKCOM CHECK FOR DELIMITING COMMA 16 00267 


000361 002000 
000362 002416 
000363 002000 
000364 002237 
000365 002444 
000366 002532 
000367 000002 
000370 o02000 


000371 002237 
000372 002474 
000373 002527 
000374 9000002 
000375 002000 
000376 002237 
000377 002510 
000400 002535 
000401 000007 
000402 006017 
000403 002447 
000404 054064 
000405 006017 
000406 002450 
000407 054062 
000410 oo2000 
000411 001353 
000412 000133 
000413 000416 
000414 001000 
000415 000133 


1545, CALL MOVER ,PTUID,FLO2,2 16 00268 


1546 CALL MOVER,CTID,FLOI,LTIO 16 00269 


1547 CALL MOVER ,CREO,FLD3,LRED 16 00270 


1548 LDAE SECTN PICK UP SECTOR NUMBER OF TIBI 16 00271 


1549 STA Nce500 AND SAVE IN TEMPORARY CELL 16 00272 
1550 LDAE OISP PICK UP DISPLACEMENT OF TIBI 16 00273 


1551 STA NC2510 AND SAVE IN TEMPORARY CELL 16 00274 
1552 CALL UNIT, SYNERR,NC244O 16 00275 


1553 IMP SYNERR SIGNAL ERROR IF WE RETURN NORMALLY 16 00276 


DEDVDDY HS VYH KH VyyHVUVY> Hy VDD Py vvDS Vy 


eee 


eeeseee 


1555 


1556 * SAVE TUID OF SECOND TIB IN MESSAGE AND REREAD 7IB1 * 16 00279 
1557 Ceevccccccccccccecccsseeeeseecceceeseceseesensonecesesesoncceeeseesees 16 00280 
000416 002000 A 1558 NC2440 CALL = MOVER, PTUID,FLO7,2 16 00281 
000417 002237 R 
000420 002444 R 
000421 002544 R 
000422 o00002 A 
000423 006037 A 1559 LOXE —BLKPTR POINT TO TIB2 16 00282 
000424 002451 R 
1560 FETCHA X,TIDSP,TIDSPB, TIDSPZ+TISECZ 16 00283 
000425 015002 A 
000426 006150 A 
000427 077777 A 
000430 005012 A 1561 TAB AND COPY TO B REG 16 00284 
000431 014037 A 1562 LOA NC2500 PICK UP SECTOR NUMBER OF TIBI 16 00285 
000432 006057 A 1563 STAE  SECTN PLACE IN SECTOR NUMBER CELL 16 00286 
000433 002447 R 
000434 014035 A 1564 LOA NC2510 PICK UP TIBI DISPLACEMENT 16 00287 
000435 006057 A 1565 STAE —-DISP PLACE IN DISPLACEMENT CELL 16 00288 
000436 002450 R 
000437 064031 A 1566 STB NC2500 SAVE SECOND PCD POINTER 16 00289 
000440 002000 A 1567 CALL READ REREAD FIRST TIB 16 00290 
000441 d02z0z0 R 
000442 002000 A 1568 CALL CALC POINT TO FIRST TIB 16 00291 
000443 001727 R 
1569 FETCHA X,TIOOP,TIODPS, TIODPZ+TIOSCZ 16 0292 
000444 015003 A 
000445 006150 A 
000446 077777 A 
000447 001016 A 1570 vANZ —-NC2442 JUMP IF PREVIOUSLY REDIRECTED 16 00293 
000450 000455 R 
1571 FETCHA X,TIDSP,TIOSPB,TIDSPZ+TISECZ 16 00294 
000451 015002 A 
000452 006150 A 
000453 077777 A 
000454 055003 A 1572 STA TIOOP.X STOW INTO LAST WORD 16 00295 
000455 014013 A 1573 NC2442 LDA NC2500 PICK UP SECOND PCD POINTER 16 00298 
1574 SETA —_X, TIDSP, TIDSPB, TIDSPZ+TISECZ 16 00297 
000456 135002 A 
000457 006150 A 
000460 077777 A 
000461 135002 A 
000462 o55002 A 
000463 002000 A 1575 CALL WRITE AND REWRITE THE FIRST SECTOR 16 00298 
000464 002043 R 
000465 002000 A 1576 CALL sOTYPE AND ISSUE REDIRECTED MESSAGE 16 00299 
000466 002150 R 
000467 001000 A 1577 MP Nc2420 AND CONTINUE TO LOOK FOR MORE TUID PAIRS 16 00300 
000470 000355 R 
1579 seeees one * 16 00302 
1580 * DATA AND WORK AREAS FOR REDIRECT PROCESSOR * 16 00303 
[5B] SCPC R RO eee REET E OEE EEETER ETE EEEEEEE ESSER EEEESESESES OSES E SEES ESE EESED 16 00304 
000471 000000 A 1582 NC2500 DATA 0. SAVE SECTOR OF TIBI 16 00305 
000472 000000 A 1583 NC2510 DATA 0 SAVE DISPLACEMENT OF TIBI 16 00306 


1584 EVEC 16 00307 


VTAM AL 


000473 
000474 
000475 
000476 
000477 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000510 
000511 
000512 


000513 
000514 


000515 
000516 


000517 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000530 


000531 


000541 


000542 
000543 
000544 
000545 


000546 
000547 


000473 R 


002000 
002416 
oo2000 
002237 
002474 
002527 
000002 
002000 
002237 
002517 
002535 
000004 
002000 
001353 
000133 
000517 


DDDY>YDDAVDy HS VDVMVDY Dy 


002000 
o024e5 


001000 
000473 


a> D> 


002000 
002237 
o0e444 
002532 
00002 
006037 
002451 
015003 
001010 
000542 


135002 
006150 
077777 
135002 
055002 
005001 
055003 
002000 
002043 


D>>>>yrryy DSH D> > DVV> 


002000 A 
002150 R 
001000 A 
000513 R 


000546 R 
002000 A 
002416 R 


1585 
1586 
1587 
1588 


TITLE - RESTORE DIRECTIVE PROCESSOR 


1589 * PURPOSE - 
1590 THIS ROUTINE SCANS AND PROCESSES THE RESTORE DIRECTIVE. 

1591 

1592 * CALLING SEQUENCE - 

1593 JMP RESTOR 

1594 

1595 * ENTRANCE PARAMETERS - 

1596 * NONE. 

1597 

1598 eecccees sees eneeee 

1599 RESTOR EQU . ROUTINE ENTRY POINT 

1601 

1602 

1603 

1604 NC2810 CALL CHECK FOR DELIMITING COMMA 

1605 CALL = MOVER, CTID,FLO1,LTIOD 

1606 CALL MOVER, CRES, FLO3,LRES 16 00329 
1607 CALL —_- UNIT, SYNERR,,NC2830 16 00330 
1609 * ee #9998 16 00332 
1610 * IF NOT TERMINATED BY A PERIOD, CONTINUE SCANNING * 16 00333 
1611 Seecccccsescccssceccenconescecccnsecseseseceesouseneseccscsooosesesooee 16 00334 
1612 NC2620 CALL —CHKPER CHECK FOR TERMINATING PERIOD 16 00335 
1613 MP Nc2810 IF MORE, CONTINUE SCAN 16 00336 
1615 teeeccccrcerrcceveeneceneceeeceseeeeeeeeeseeeeeeeeneneeessooeneeesoee® 16 00338 
1616 * THE TUID HAS BEEN PARSEO, NOW 00 THE RESTORE ACTION * 16 00339 
1G17 SOP PS ee sees ees eH HOA HSEEHOHEEO OSES ESET ESET PESESHOSSEHEOESH SETHE E ESE EOD 16 00340 
1618 NC2830 CALL MOVER, PTUID,FLO2,2 16 00341 
1619 LDXE — BLKPTR POINT TO THE TID 16 00342 
1620 LOA TIOOP x PICK UP ALTERED TCD POINTER 16 00343 
1621 JAZ NC2B4O SKIP IF NEVER REDIRECTED 16 00344 
1622 SETA —X, TIDSP, TIDSPB, TIDSPZ+TISECZ 16 00345 
1623 TZA PICK UP A ZERO 16 00346 
1624 STA TIODP x AND CLEAR ALTERNATE POINTER 16 00347 
1625 CALL WRITE REWRITE THE TIB TO RMD 16 00348 
1627 Soeeeeeseoecerseseereeresssseeeeeseseueeseesessessenneseseesesesesesee® 16 (0350 
1628 * NOW ISSUE THE REDIRECT MESSAGE AND CONTINUE SCAN * 16 00351 
1G2Q FARO eee OO ETOH OHO EHO SEEEEEEEEEEEEEEEESEESEEEEEEOSOSESESESEHESESER OSES 16 00352 
1630 NC2840 CALL ‘TYPE TYPE REDIRECT MESSAGE 16 00353 
1631 MP Nc2e20 GO BACK TO TRY FOR ANOTHER UNIT 16 00354 
1632 16 00355 
1633 *#8CR Soe eerrseereeeesrcceereeseseeesseneeuneseseresesessuensensoneoooe® 165 00356 
1634 * * 16 00357 
1635 * TITLE - DOWN DIRECTIVE PROCESSOR * 16 00358 
1636 * * 16 00359 
1637 * PURPOSE - * 16 00360 
1638 * THIS ROUTINE PROCESSES THE DOWN DIRECTIVE, FOR BOTH * 16 00361 
1639 * LINES AND TERMINALS. * 16 00362 
1640 * * 16 00363 
1641 * CALLING SEQUENCE - * 16 00364 
1642 * MP DOWN * 16 00365 
1643 * * 16 00368 
1644 * ENTRANCE PARAMETERS - * 16 00367 
1645 * NONE. * 16 00368 
1646 * * 16 00369 
1647 S#OF See eeeeeTeeeeeT EEE SHES HHTEHHTESHE SEES ES TEES ESEEEHEHEHESESERESES 1G 00370 
1648 DOWN QU * ROUTINE ENTRY POINT 16 00371 
1649 NC3210 CALL = CHKCOM CHECK FOR DELIMITING COMMA 16 00372 


1651 Seeeeeceescecevenscecssevsceevesecsocvcceseenecesecsonesoessoseeensese® 16 00374 


1652 * SET UP COMMON MESSAGE SECTION * 16 00378 


VTAM Al 


000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000560 


000561 
000562 
000563 
000564 


000565 
000566 
000567 
000570 
000571 
000572 
000573 
000574 
000575 
c00576 
000577 


000600 
000601 
000602 


000603 
000604 
000605 
000606 
000607 
000610 
000611 
000612 
000613 


000614 
000615 
000616 
000617 
000620 
000621 
000622 
000623 


000624 
000625 
000626 
000627 
000630 
000631 
000632 


000633 
000634 
000635 
000636 
000637 
000640 
oo0641! 
000642 
000643 
OO0644 
000645 
Oo0b46 
000647 
000650 
000651 


000652 
000653 
000654 
000655 


oo02000 
002237 
002500 
002535 
000002 
002000 
001353 
000565 
000711 


002000 
o0e4e5 
001000 
000546 


0620c0 
002237 
002472 
002527 
000002 
006030 
002532 
006017 
uoe44 
00° 3490 
621331 


006037 
002451 
o1o4el 


004251 
135002 
004351 
150421 
004251 
135002 
065002 
002000 
002043 


006017 
002434 
114065, 
054067 
006017 
002436 
114060 
054003 


006505 
000000 
100000 
002777 
000705 
900000 
000000 


006017 
002434 
004250 
006117 
002436 
054047 
006027 
000000 
001020 
000677 
o1404e 
146003 
001016 
000674 
016015 


006057 
002444 
016016 
006057 


DDDY>>YDDByY 


D>>>>err> >r D> D> D>DyyDDVy> 


>> D>eM>y >> DyrrD> 


>> D> KS DV>H Kr DHSM>r DHE >D> 


1653 
1654 


1655 


1657 
1658 
1659 
1660 


1661 


1662 
1663 
1664 
1665 
1666 


1667 
1668 
1669 


1671 
1672 
1673 
1674 


1675 
1676 


1677 


1678 
1679 
1680 
1681 
1682 


1683 
1684 
1685 


1686 
1687 
1688 


1690 
1691 
1692 
1693 
1694 
1695 
1696 


1697 
1698 


1699 
1700 


1701 
1702 
1703 
1704 
1705 
1706 


1707 
1708 


NCM « 121) 


CALL 


CALL 


MOVER, COWN,FLO3,LOWN 


UNIT ,NC3600,NC4000 


APS OE DERE R OREO EET E ORES EROS ESTERS ESO ESE SESE ESSE SOO DOSRESESE DESH SESE SEES 


IF NOT TERMINATED BY A PERIOD, CONTINUE SCANNING 


SOOO ENO R OREO REE R OEE OER ESSE DESERET ES SESRESEESSSS OSES ES ESSOSSSORESSSEOED 


NC3220 


CALL 
JUMP 


CHKPER 
NC3210 


CHECK FOR TERMINATING PERIOD 
IF MORE, CONTINUE SCAN 


16 


NC3610 


CALL 


ORA 
STA 
FUNC 


MOVER, CLNE,FLO1,LLNE 


FLOe 
LSON 


LSTCVT 


BLKPTR 


ONE 
X,PSDWN,PSDWNB 


WRITE 


NC3740 
NC3750+2 
CCMN 


NC3720 
NC3610+3 
NC3750,255,WAI 


POINT TO LINE NUMBER FIELD 
PICK UP THE CURRENT CHARACTER 
CONVERT TO ASCII 


€ RMD 


oe Ceeeeereveseeee 


POINT TO THE LSD 


PICK UP A CONSTANT ONE 
»PSOWNZ 


REWRITE LSO SECTOR 


PICK UP LINE NUMBER 


OR _IN FUNCTION CODE 
STOW IN LINE CONTROL BLOCK 
PICK UP CCM NUMBER 


OR INTO FUNC OP-CODE 
son IN MACRO EXPANSION 


CORPO RDO eee e eee SESH ERED EEE EDES ESOS OSSESESESES SSS ESSOESSSESSSEOOES 
NOW SEARCH THREAD OF ALL CURRENT TCDS FOR TERMINAL OPEN 
TO THIS LOGICAL LINE NUMBER ANO CCM NUMBER. 

WHEN A MATCH IS FOUND, 


PROPER ODOR OOOO EOE T OTHE E RENE DEETES ERT OSOSESOSEHEEOEREOESOEOOETEEESOD 


NC3620 


ExT 
LOAE 


LRLA 
ORAE 


STA 
LOBE 


JBZ 
LDA 
SUB 
JANZ 
LDA 
STAE 


LDA 
STAE 


TCS$TCD 
LSON 

8 

CCMN 
NC3760 
TC$TCD 
NC3650 
NC3760 
TCLLN,B 
NC3640 
Tc101,.8 
PTUID 


Tc102,8 
PTUID+! 


ISSUE 1/0 CLEAR FOR THAT TUID. 


EXTERNAL NAME OF TCD THREAD ORIGIN 
PICK UP THE CURRENT LINE NUMBER 


SHIFT TO THE HIGH-ORDER BYTE 
OR IN THE CCM NUMBER 


STOW IN TEMPORARY CELL 
POINT TO FIRST TCD ON THREAD 


IF NULL, STOP FOLLOWING THREAD 
PICK UP TEMPORARY CELL 

COMPARE TO THE CURRENT TCD 

IF NOT SAME, DO NOT DOWN 

PICK UP FIRST TWO CHARS OF TUID 
STOW IN OCB 


PICK UP SECOND TWO CHARS OF TUID 
STOW IN OCB 


. 


00376 
00377 


00378 


00380 
00381 
00382 
00383 


00384 


00385 
00386 
00387 
00388 
00389 


00390 
00391 
00392 


00394 
00395 
00396 
00397 


00398 
00399 


00400 


00401 
00402 
00403 
00404 
00405 


00406 
00407 
00408 


00409 
00410 
00411 


00413 
oo414 
00415 
00416 
00417 
00418 
00419 


00420 
0042! 


oo4ee 
oo4e3 


oo4e4 
00425 
00426 
oo4e7 
o04e8 
oo4es 


00430 
00431 


VTAM AL 


000656 
000657 
000660 
000661 
000662 
000663 
ooo664 


000665 
000666 
000667 
000670 
000671 
000672 
000673 
000674 
000675 
000676 


000677 
000700 
000701 
000702 


000703 


000704 
000705 
000706 
000707 
000710 


000711 
000712 
000713 
000714 
000715 
000716 
000717 
000720 
oo07e! 
000722 


000723 
000724 
000725 


000726 
000727 
000730 
000731 
000732 
000733 
000734 
000735 
000736 


000737 
000740 
000741 
000742 
000743 
000744 


000745 
000746 
000747 
000750 
000751 
000752 
000753 


000754 
000755 
000756 
000757 


002445 
002000 
002272 
001010 
000674 
114074 
054003 


006505 
000625 
100000 
002777 
OO2444 
000000 
000000 
026000 
001000 
000643 


002000 
002150 
001000 
000561 


002400 


012400 
000000 
000000 
000000 
000000 


002000 
002237 
002474 
00e5e7 
oo000e 
002000 
002237 
O02444 
002532 
000002 


006037 
002451 
010421 


004257 
135002 
004357 
150421 
004257 
135002 
055002 
002000 
002043 


002000 
002272 
001010 
000754 
114014 
054003 


006505 
000666 
100000 
002777 
O0e444 
000000 
000000 


002000 
002150 
001000 
000561 


DP>SrDSremMy> vy rVSD>SD 


> DDDY> KH DVVD> 


D>>>>rr>r>r Y D> 


>>DrD> 


>rpr>>m> 


1709 
1710 


1711 
71e 
1713 


1714 
1715 


1716 
1717 
1718 
1719 
1720 
1721 


1722 


1723 
1724 
1725 
1726 
1727 
1728 
1729 


1730 


1731 
1732 
1733 
1734 
1735 


1736 


1738 
1739 
1740 
1741 


1742 
1743 


1744 


1746 
1747 
1748 
1749 


1750 


1751 
1752 
1753 


1755 
1756 
1757 
1758 


1759 


1761 
1762 


NCM ( 122) PAGE 


CALL GETLTN MAP TO LOGICAL TERMINAL NUMBER 


JAZ NC3640 
ORA NC4120 OR _IN FUNC OP-CODE 


STA NC3630+3 STOW INTO MACRO EXPANSION 
NC3630 FUNC PTUIO,255,WAIT 


IF NULL, CANNOT CLOSE 


NC3640 LOB TCTCO,B PICK UP NEXT TCD THREAD 

UMP NC3620 AND CONTINUE SEARCH 
. POeeeeeUOSirir errr cris t itr rrri irri tii tirrir rir ys 
° LINE IS CLOSED AND DOWN, ALL TERMINALS TO THAT LINE 4 
. gs pLUsreOs NOW ISSUE THE DOWN MESSAGE AND GO TO TRY NEXT . 
. FIELD. . 


POON OOOO DED EEO EES REDS O EES E SED ESSEEEEOSESESSSESSSESESEEESESSEEES 


NC3650 CALL TYPE ISSUE DOWN MESSAGE 
IMP NC3220 JUMP TO TRY NEXT UNIT 


POOP O RHR E REO O ROE E OOO EEEEEEES OSS EEEEEESEE ESS OSSOSES ESSE DEED OSEHEESES 


* DATA AND WORK AREAS FOR DOWN-LINE DIRECTIVE PROCESSOR * 


wees Crrerererrey oe 
NC3720 IOMAC +0,FUNCOP,0 
FORMAT FOR LCB MACRO 


NC3730 FORM 
NC3740 NC3730 FUNCTION CODE FOR LCB 


NC3750 DATA 0,0,0 LINE CONTROL BLOCK 
NC3760 DATA 0 TEMPORARY STORAGE 
EVEC 
POR R eee CeO E OOOO S OORT ESS ESE USEESEEEESOSESO OED ESEESSSERESESOSSOESD 
. AT THIS POINT, A TUID IS TO BE DOWNED, FIRST SETUP MESSAGE @ 


OUP EU OPEC OOS ECCIC CLC Cie ricte rie ie rerreer reer ir irrrirererirrerreri rrr 


NC4OO0 CALL MOVER,CTID,FLDI,LTID 


CALL MOVER ,PTUID,FLO2,2 


POCORHP EMRE RETEOO TET HECOETH SEER OER ES SESTOEEEDOOSEOET ERED ERODES SEOOSENED 


. TURN ON DOWN SWITCH IN TIB ANO REWRITE TO RMD be 


SOOO OO OE OREO O ROOD SOOT ODED OEEEEEESES EEE EDOSSOEHERESOEEESSOSHSS EEO D OSES 


LOXE BLKPTR POINT TO THE TIB 


LOA ONE PICK UP A CONSTANT ONE 
SETA X, TIOWN, TIOWNB, TIDWNZ 


CALL WRITE REWRITE TIB SECTOR TO RMD 


SOOPER EE ROOD OSES SEO TERETEESETFSO ERED ED ED SOCSEEEF ERE DOTESOESHO DEES OSOEED 


e NOW LOOK UP LOGICAL TERMINAL NUMBER AND ISSUE I/O CLEAR if 


POOR OOO OHO RHEE ORO DEEP DOSES SOS OEEEOTS SEEDED ESESOT EEO S OSES EESESEN EOD 


CALL GETLTN FIND LOGICAL TERMINAL NUMBER 
JAZ NC4O4O SKIP FUNC IF NOT CURRENTLY OPEN 


ORA NC4120 OR INTO OP-CODE 
STA NC4110+3 STOW INTO 1/0 MACRO 
NC4110 FUNC PTUID,255,WAIT 


OOOO ORE ERED OSE O EET OSSESOEOSEOTESEEESEEEED EEOC OESSTOEE ERODE OOO EEOREEED 


* TERMINAL IS NOW DOWN AND ALL 1/0 IS PURGED, ISSUE MESSAGE f. 


OUe ECPI r eS C ECC ee rer ieer citi ci ieerirer rer ierertrirtirii rire iii) 


NCHO4O CALL TYPE ISSUE DOWN MESSAGE 
JUMP TO TRY NEXT UNIT 


JMP NC3220 


00432 
00433 


00434 
00435 
00436 


00437 
00438 


00439 
00440 
00441 
oo44e 
00443 
00444 


00445 


00446 
00447 
00448 
00449 
00450 
00451 
00452 


00453 


oo4s4 
00455 
00456 
00457 
00458 


00459 


VTAM AL 


000760 002400 A 


000761 
000762 
000763 
000764 
000765 
000766 


000767 
000770 
000771 
000772 
000773 
000774 
000775 
000776 


000777 
001000 
001001 
001002 


001003 
001004 


001005 
001006 
001007 
001010 


001011 
oo101e 
001013 
001014 
001015 
001016 
001017 


001020 
001021 

001022 
001023 
001024 
001025 
001026 
001027 
001030 
001031 

001032 
001033 
001034 
001035 
001036 
001037 
001040 
001041 


001042 


000761 
006017 
002454 
006147 
002456 
001010 
001011 


002000 
002416 
002000 
001353 
000777 
001003 
001000 
001005 


002000 
001125 
001000 
001005 


002000 
001243 


002000 
o0e4e5 
001000 
000767 


005001 
006057 
002434 
006017 
002465 
006057 
002452 


005001 

006027 
002434 
174100 
005122 
006067 
002447 
005012 
005001 

160465 
006067 
002450 
002000 
002020 
002000 
001727 
002000 
001125 


006017 


D>DrD>D 


D> DDD>D> 


D>D>D>> 


D> D> DH Vy > yr py yr pvy> 


A 
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1763 #8ts Cee eee e eee eee eee eee eee SSeS ESESSESSSESESSESSOSOSOE SED ES SHOR OE OEES 


1764 NC4120 ILOMAC WAIT,O,FUNCOP,O 


eaeeeseeenessenes 


. 
1768 * TITLE - LIST DIRECTIVE PROCESSOR . 
1769 * . 
1770 * PURPOSE - . 
1771 * THIS ROUTINE SCANS THE LIST DIRECTIVE « 
1772 * . 
1773 * CALLING SEQUENCE - er 
1774 ¢ JMP LIST . 
1775 © . 
1776 * ENTRANCE PARAMETERS - . 
1777 * NONE . 
1778 * . 
177Q #EOCOR REESE EES RHEE SERS ES ERERE EEE OS SEES EOE EESESEONEEOOEESSDD OSES ESE EES 
1780 LIST EQU % ENTRY POINT 

1781 LDAE CHAR PICK UP THE CURRENT CHARACTER 

1782 SUBE PERIOD COMPARE FOR A PERIOD 

1783 JAZ NC4600 IF PERIOD, PROCESS ‘LIST ALL’ 


17B5 #8eeeereseercesevees oer UrSrrrrrrrrriiryy 


1786 * AT THIS POINT THE DIRECTIVE HAS AN OPERAND LIST . 


17GT7 SOO terre esses eee ease eesee SEE E SH SOSEO SOE EEESSTOEETEDSSESSS OSS SSSESSED 


1788 NC4410 CALL CHKCOM CHECK FOR DELIMITING COMMA 
1789 CALL UNIT ,NC4420 ,NC4430 


17390 JMP NCY44O ON 'OTHER', SKIP TO CHECK FOR PERIOD 


1794 seeeeee 
1795 NC4420 CALL LSTLN 


1796 JUMP NC444O 


IF ‘LINE’, CALL LINE LISTER 
AND SKIP TO COMMON CODE 


179B S#PSeeereeeeeeeser es -HESOESEOOEDOD ESET OSES OSES EH ESOS ES ESEOEHEUSESOONED 
1799 * AT THIS PCiNT, A TUID WAS SENSED, CALL THE TERMINAL LISTER bd 
1800 SSS eeeeeeee seen POSROEREHE OOO SET E SOO SEOOEEEEE EES OOTOSSSEOETEEEHEEREOS 


1801 NC4430 CALL 13 TU IF ‘TUID', CALL TUID LISTER 


1806 NC444O CALL CHKPER CHECK FOR TERMINATING PERIOD 


1807 MP NC4410 IF MORE, CONTINUE SCAN 
1808 Eve, 

1809 Seeccces: b.eccceneenccsoeccscscencenccceeeccosesccoseescoescconeneees 
1810 * LI¢ ALL IS ISSUED HERE, PREPARE FOR READING LSO'S . 
1B1] teecceeess secceccceccesoseneeseeeeseneseeneeeseeeeenen ees eeeseneneeees 
1612 NC¥600 Ts PLACE ZERO IN A REG 

1813 €:£  LSON TAKE AS INITIAL LSO NUMBER 

1614 ./AE —-OFLPTR PICK UP ADORESS OF FCB 

1815 ‘TAE —-FCBPTR STOW AS CURRENT FCB 

1817 #80 @ eeee . 
1818 * COMPUTE SECTOR NUMBER AND READ IN THE LSD + 
1Q19 tee  cecceuecerececcceececcceneeseceeensecnsceseeneceneceoeeeeoeeeces 
1820 NC! 3 0 TZA ZERO A REG FOR DIVISION 

1621 ° LOBE —LSDN PICK UP THE CURRENT LSD NUMBER 

1822 Div NC4700 COMPUTE SECTOR AND DISPLACEMENT 

1823 IBF MAKE SECTOR NUMBER ONE'S ORIGIN 

1824 STE — SECTN STOW AS THE CURRENT SECTOR 

1825 3 COPY REMAINDER TO B REG 

1826 Td ZERO A REG FOR MULTIPLY 

1827 Ms NCY710 COMPUTE LSO DISPLACEMENT IN WOROS 

1828 £3 DISP STOW AS THE CURRENT DISPLACEMENT 

1829 jb READ READ IN THE SECTOR 

1630 bat cate CALCULATE ADDRESS OF LSO 

1831 €sLL—LSTLN PASS CONTROL TO LIST THE LINE 

1834 * | INCREMENT LSD NUMBER AND CONTINUE IF .LE. 255 . 
1G35 80000 ) seeeecceccecoeneccecerecccceneesceeescececeseucceuencoeecouees 


1836 -DAE LSON PICK UP THE CURRENT LSD NUMBER 


VTAM Al 


001043 
001044 
001045 
001046 


001047 
001050 
001051 


001052 
001053 
001054 
001055 
001056 
001057 
001060 
001061 
001062 
001063 
001064 
001065, 
001066 
001067 
001070 
001071 
001072 
001073 
001074 
001075 
001076 
001077 
001100 
001101 
001102 


001115 
001116 
001117 
001120 
oo1lel 
oo1lee 
001123 


0011e4 


001125 
001126 
001127 
001130 
001131 
001132 


001133 
001134 
001135 
001136 


002434 
oosi11 
006057 
002434 


140431 
001004 
001020 


006017 
002466 
006057 
002452 
o1o4el 
006057 
002447 
005001 
006057 
002450 
002000 
002020 
006017 
002450 
120423 
006057 
002450 
004342 
006147 
002576 
005311 
001002 
001115 
002000 
001727 
074002 
002000 
002237 
000000 
002444 
oo00002 
002000 
001243 
001000 
001066 


006017 
002600 
004347 
001016 
001057 
001000 
000000 


000030 
000465 
000431 


000000 
006027 
002451 
016002 
006450 
001241 


002000 
002237 
002472 
002527 


DEDH KDHE DY OVS DHHS DVS KH VH ry VHS Dy VHS HDS > vy vy D>> DPO>D 


D>D>>rD> 


DrrD>> 


DDD> 
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1837 IAR INCREMENT IT 

1838 STAE LSDN SAVE IT 

1839 SUB NC4720 COMPARE FOR MAX + I 

1840 JAN NC4610 CONTINUE IF .LE. MAX 

1641 EVEC 

1Q42 POPP een ene e eee eee Eee OSEESEFEEE EOE OSSEESSEE SESE SESS OSEEESOOSSOERSOEES 
1843 * NOW PASS THROUGH THE INDEX AND LIST ALL TUIDS 4 


1B44 SOOCee tees nese e eee e eee SEES EEE ESSOOOSESOEEESESESESESSESEEESORSESES SEES 


1845 LDAE OFTPTR PICK ADDRESS OF FCB 


1846 STAE FCBPTR STOW AS CURRENT FCB 

1847 LDA ONE PICK UP A COVSTANT ONE 

1848 NC4620 STAE SECTN STOW AS THE CURRENT SECTOR NUMBER 

1849, TZA PICK UP_A ZERO VALUE 

1850 STAE OISP USE AS THE CURRENT DISPLACEMENT 

1851 CALL READ READ THE REQUESTED SECTOR 

1852 NC4630 LDAE DISP PICK UP THE CURRENT DISPLACEMENT 

1853 AOD FOUR INCREMENT TO THE NEXT TIB 

1854 STAE DISP STOW AS THE CURRENT DISPLACEMENT 

1855, LSRA 2 DIVIDE BY FOUR 

1856 SUBE SECTOR MINUS NUMBER OF TIBS IN THIS SECTOR 

1857 DAR ADJUST BEFORE JUMP TEST 

1858 JAP NCH640O SKIP CALL IF NO MORE ON THIS SECTOR 

1859 CALL CALC COMPUTE ADDRESS OF RECORD FOR ROUTINE 

1860 STX NC4632 STOW FROM LOCATION 

1861 CALL MOVER MOVE TO PTUID SLOT 

1862 NC4632 DATA 0,PTUID,2 PARAMETER LIST 

1863 CALL LSTTU CALL TUID LISTER 

1864 JUMP NC4630 SKIP BACK TO PROCESS ANOTHER TIB 
eaneenee 

1867 * AT THIS POINT THE WHOLE INDEX SECTOR HAS BEEN PROCESSED s 


186Q *#eeeseenveveseccens eereeee 
1869 NC464O LDAE SECTOR+2 PICK UP THE THREAD POINTER 


1870 LSRA 7 SHIFT INTO POSITION 
1871 JANZ NC4620 CONTINUE IF THREAD IS NOT NULL 
1872 UMP NETCON ELSE, GO TO TOP OF MODULE 


1874 eveveecerccseeseeeeeeeeereeee nee neeeeeseeeeeseneeseeeeeenseneseenenens 
1875 * DATA AND WORK AREAS FOR LIST ALL PROCESSOR 

1876 *eeeeeseneeene eesseeee eee 

1877 NC¥700 DATA 24 NUMBER OF TI8'S/SECTOR 
1878 NC4710 EQu FIVE SIZE OF EACH TCO 

1879 NC4720 EQU Bs8 MAX LSD NUMBER PLUS ONE 


1880 EJEC 


eeeeeceee 


. 
. . 
. . 
. . 
1885 * PURPOSE - is} 
1886 * THIS ROUTINE IS CALLED TO LIST THE CURRENT STATUS OF A SINGLE « 
Hest * LINE, WHOSE LSO IS POINTER TO BY 'BLKPTR'. e 
1 . . 
1889 * CALLING SEQUENCE - ° 
1890 * CALL LSTLN * 
1691 © ° 
1892 * ENTRANCE PARAMETERS - mi 
1893 * "BLKPTR' MUST POINT TO THE LSD OF THE LINE TO BE LISTED e 
1894 ¢ ‘CCMN' MUST CONTAIN THE CCM NUMBER FOR THE LINE e 
. . 
. . 
1897 LSTLN ENTR ENTRY CELL 
1898 LOBE BLKPTR POINT TO THE LSD 
1899 LDA PSDEF ,B PICK UP DEFINED WORD 
1900 eT PSDEFB+BTAOFF ,NC4850 
1902 Seeeeerereeresceseeeee eee sere Oe SSO OSES EES O DEES SOESEEOERESSOSSEEESESEEED 
1903 * NOW SETUP MESSAGE BUFFER . 
1904 SCC Seer eee eeseeeeeE EERE ERED ET SES SESE SDS OS ESO OSOESEEEE SOE SOSEEDSOOEESS 
1905, CALL MOVER ,CLNE,FLOI ,LLNE 


16 
16 


VTAM Al 


001137 
001140 
oot 
001142 
001143 
001144 
Oo1l4s 
001146 
OO1147 
001150 
001151 


001152 
001153 
001154 


001155 
001156 
001157 
001160 
001161 
001162 
001163 
001164 
oo116S 
001166 
001167 
001170 
001171 
001172 
001173 


001174 
001175 
001176 
001177 
001200 
oo1eo! 
001202 
001203 
001204 
001205 


001206 
001207 
001210 
oolelt 


oo12ie 
001213 
001214 
oo1e1s 
001216 
001217 
001220 
oo1ee1 
001222 
001e23 
oo1eey 
oo1ees 


001226 
o01ee7 
001230 
001231 
001232 
001233 
001234 
001235 
001236 


001237 
001240 
oo1e41 
oo1e4e 


ooo0002 
006017 
002525 
006057 
002534 
006030 
002532 
006017 
002434 
002000 
001331 


006027 
002451 
016002 


150463 
006030 
002535 
002000 
001331 
002000 
002237 
002500 
002540 
000002 
002000 
002237 
002505 
002543 
000003 


006027 
002451 
016002 
006411 
001206 
002000 
002237 
002476 
002540 
000002 


006017 
002434 
006147 
000000 


001002 
001237 
006017 
002434 
005002 
004541 
006120 
ool2i1 
005115 
015000 
003020 
002017 


150463 
140463 
001002 
001237 
002000 
002237 
o0e50e 
002543 
000003 


002000 
002150 
001000 
101125 


PDVDYKHVDVDY DEVE ye PDS DH VHS VS Dy Dyer 


> > DDD D> >D> 


PDDDHSDY>>y DH > omy >r ve D> mev> 


1906 
1907 
1908 
1909 
1910 


1911 


1912 
1913 


1914 
1915 
1916 


1917 
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LDAE cP LOAD * P* 16 

STAE FLD3-1 STOW * P* 16 

LDXI FLO2 POINT TO NUMERIC FIELD 16 

LDAE SON PICK UP BINARY VALUE 16 

CALL LSTCVT CONVERT TO ASCII 16 

LOBE BLKPTR POINT TO THE LSD 16 

LOA PSPLA,B PICK UP WORD 0 16 

ANAM PSPLAZ PICK OUT PHYSICAL LINE NUMBER 16 

LDXI FLD3 POINT TO RESULT FIELD 16 

CALL LSTCVT CONVERT TO ASCII 16 

CALL MOVER ,COWN,FLOS,LOWN 16 

CALL MOVER,CCLS,FLO6,LCLS 16 

POOR e eee eee eee eee eee EEE EOE EE EEE EREESEEEESEOESOSESSOONEOHEOSESEEEES IE 

ud IF LINE IS UP, MOVE ‘UP' TO MESSAGE * 16 

SARE e eee eee eee Se OHO R OES OOOESESEESS SEES OSSESESESESESESSSSSSSERESEOSS 16 

LOBE BLKPTR POINT TO THE LSD 16 

LDA PSOWN ,B PICK UP SWITCH WORD 16 

BT PSDWNB,NC4830 SKIP IF FLAGGED DOWN 16 

CALL MOVER ,CUP,FLOS,LUP 16 

eeeeee eee seeeneers 16 

* IF LINE IS OPEN, MOVE ‘OPEN’ TO MESSAGE 16 

SOOO O eee ee eee eee OO EHTS ORES SESE SHES EROS ETHOS OEESS ORO SHESESESSSUSEEOOS 16 

ExT CS5eLLT EXTERNAL NAME OF LLT 16 

NC4830 LDAE LSON PICK UP LOGICAL LINE NUMBER 16 

SUBE C52LLT COMPARE AGAINST NUMBER IN TABLE 16 

JAP NC4B4O IF TOO LARGE, MUST BE CLOSED 16 

LDAE LSON RESTORE LOGICAL LINE NUMBER 16 

2B XERO B REG TO RECEIVE BYTE FLAG 16 

LLUSR 1 SHIFT OUT BYTE FLAG TO B REG 16 

ADDI CS52LLT ADD IN BASE OF LLT 16 

INCR 015 INCREMENT OVER COUNT AND COPY TO X 3 16 

LDA 0.x PICK UP THO BYTES 16 

xBZ NC7320 SHIFT RIGHT OVER BYTE IF FLAG IS ZERO 16 

ANAM 8 MASK OFF HIGH-ORDER BYTE 16 

SUB RHW COMPARE TO 0377 16 

JAP NC484O SKIP IS OUT OF RANGE 16 

CALL MOVER, COPN,FLO6,LOPN 16 

° 16 

. ISSUE THE MESSAGE AND RETURN TO THE CALLER 16 

ERROR ODER EOE ETE EE ESOS OE OEEORECEEEEOSESSS ESTES ER ESESEESEDEECESHESOEOES 1G 

NC484O CALL TYPE ISSUE THE MESSAGE 16 

NC4850 UMP* LSTLN RETURN TO THE CALLER 16 

EVEC 16 

PSOE S ORES SO OSES ESOS SESE ESOSSESSESOEESSSSEESESEESSSESEEESESESSOORS 16 

. * 16 

* TITLE - TUID LISTER ROUTINE bel ie 
. . 

* PURPOSE - * 16 

THIS ROUTINE IS CALLED TO LIST THE CURRENT STATUS OF * 16 

A SINGLE TUID, WHOSE TIB IS POINTED TO BY ‘BLKPTR’. * 16 

. * 16 

* CALLING SEQUENCE - * 16 

‘a CALL LsTTU * 16 

. *16 

* ENTRANCE PARAMETERS - * 16 


00640 


VTAM AL 


001243 


001244 
001245 
001246 
001247 
001250 
00125! 
001252 
001253 
001254 
001255 
001256 
001257 
001260 
001261 
001262 
001263 
001264 
001265 
001266 
001267 
001270 


001271 
oo1e72 
001273 
001274 
001e75 
001276 
001277 
001300 
001301 


001302 
001303 
001304 
001305 
001306 
001307 
001310 
OOI3i1 
001312 
001313 


001314 
001315 
001316 
001317 
001320 
001321 
001322 
001323 
001324 


001325 
001326 


001327 
001330 


001331 
001332 
001333 
001334 
001335 
001336 


ooo000 


002000 
002237 
002474 
002527 
000002 
002000 
002237 
002444 
002532 
oo00002 
006017 
002524 
006057 
002534 
002000 
002272 
006030 
002535 
002000 
001331 
002000 


002237 
002500 
002540 
000002 
002000 
002237 
002505 
002543 
000003 


006027 
002451 
016002 
006417 
001314 
002000 
002237 
002476 
002540 
000002 


006017 
002435 
001010 
001325 
002000 
002237 
002602 
002543 
000003 


002000 
002150 


001000 
101243 


000000 
004550 
014016 
055000 
055001 
005001 


A 


PDVDDYHVDD Y VY DS VDYH VY Vy Hy VVDYE Hy vvI> 


>DDD>D>>D> 


> DDDY>VDY>D> 


D> D> 


>> rrrr 


1964 


NCM ( 126) PAGE 
® *BLKPTR' MUST POINT TO THE TIB FOR THE TUID ‘ 
LSTTU ENTR ENTRY CELL 


1973 


1974 
1975 
1976 
1977 
1978 
1979 


1980 


CALL MOVER, CTID,FLOI,LTID 


CALL MOVER ,PTUID,FLD2,2 


LDAE cr » 

STAE FLO3-1 sTOW' T' 

CALL GETLTN GET LOGICAL TERMINAL NUMBER 
LOX! FLO3 POINT TO MESSAGE FIELD 


CALL LSTCVT ANO CONVERT TO ASCII 


CALL MOVER, COWN,FLOS,LOWN 


CALL MOVER, CCLS,FLO6,LCLS 


LDBE BLKPTR POINT TO THE TIB 
LDA TIOWN,B PICK UP THE UP/DOWN SWITCH WORD 
8T TIOWNB,NC5230 SKIP IF FLAGGED DOWN 


CALL MOVER, CUP ,FLOS,LUP 


eeeweeersereceseseses 

IF THE TUID 1S OPE! 
Peover seneeeenseeeseneses 
NC5230 LDAE LTITN UP LTT NUMBER 
JAZ NC5240 SKIP IF NOT FOUND 


CALL MOVER ,COPN,FLOG6,LOPN 


OO 


. MESSAGE IS NOW COMPLETE, SO ISSUE IT AND RETUI 


PrreTeTerirreerrevirirerirririiiiriiireer ee re) 
NC5240 CALL = TYPE ISSUE THE MESSAGE 
vMP* LSTTU RETURN TO THE CALLER 
EVEC 
see eneee eect teen eens ee Nene eee eee eee eeeeee een ese seeesenenees 
. . 
* TITLE - BINARY TO ASCII CONVERSION ROUTINE . 
. 
* PURPOSE - . 
* TO CONVERT A BINARY NUMBER, HELD IN THE A REG TO ASCII, . 
* POINTED TO BY THE X REG ‘ 
. 
* CALLING SEQUENCE - * 
. CALL LSTCVT : 
ENTRANCE PARAMETERS - . 
(A) CONTAINS THE INPUT BYTE . 
00) POINTS TO THE RESULT FIELD ld 
LSTCVT ENTR ENTRY CELL 
LLsR 8 SHIFT BYTE INTO B REG 
LOA NC5700 LOAD DOUBLE ZEROS 
STA 0.x STORE IN RESULT 
STA 1.x STORE IN RESULT 
TZA ZERO A REG 


00687 
00688 
00689 
00690 
00692 
00693 
00694 
00695 


00696 


00697 
00698 
00699 
00700 
00701 
00702 


00703 


00705 
00706 
00707 
00708 


00709 
00710 


oo711 


00713 
00714 
00715 
00716 
00717 


00718 


00720 
00721 
00722 
00723 


00724 


00725 


00730 


00733 
00734 


00737 
00739 


00742 
00743 
Oo744 


00747 


VTAM AL 


001337 
001340 
OO134t 
001342 
001343 
001344 
001345 
001346 
001347 
001350 
001351 


001352 


001353 


001354 
001355 
001356 
001357 
001360 
001361 
001362 
001363 
001364 
001365 
001366 


001367 
001370 
001371 
001372 
001373 
001374 
001375 
001376 
001377 
001400 


001401 
001402 
001403 
001404 
001405 
001406 
001407 
001410 
OoIMtt 
oomle 


001413 
OO14T4 


oo1415 
001416 


001417 
001420 


001421 
001422 


004442 
115000 
055000 
00500! 
004443 
004245 
004443 
115001 
055001 
001000 
101331 


DP PrP rr rrr rrr 


130260 A 


000000 A 


064054 
074055 
006037 
001353 
015000 
054036 
015001 
054040 
005144 
005144 
074025 


>P> rrr rD>rr> 


oo2000 
001737 
001413 
006147 
002461 
001004 
001413 
140471 
001004 
001436 


De >D>D>DD> 


006017 


° 
s 
= 
a 

D> D> D> D> D> 


001605 


006010 
000000 
001414 
001000 
001425 


D>D>> 


006010 
000000 
001420 
001000 
001425 


D>D>> 


2034 
2095 


2096 
2037 


2099 
2100 
2101 
2102 


2103 
2104 


LLRL 
ORA 
STA 
TZA 
LLRL 
LRLA 
LLRL 
ORA 
STA 
JMP* 


x 


re-wuw con 


CvT 
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ROTATE OUT THO BITS 16 00748 
OR INTO FIRST RESULT WORD 16 00749 
RETURN TO RESULT 16 00750 
ZERO A REG 16 00751 
ROTATE OUT NEXT THREE BITS 16 00752 
ADD IN SOME SPACE 16 00753 
GET LAST THREE BITS 16 00754 
OR INTO SECOND RESULT WORD 16 00755 
RETURN TO RESULT FIELD 16 00756 
RETURN TO THE CALLER 16 00757 


HORROR ESE E SED E CEST RESORT SEES SES NESSES SESE REESE SSESEESEEHHS EEE EEESEESS 16 (10759 


* CONSTANTS FOR CONVERSION ROUTINE * 16 00760 


Preererreererrrrrrreriecrrerrrer rier rere rit irri irri irri iii eel -a yt] 


NC5700 DATA ‘00° DOUBLE ZERO CONSTANT 16 00762 
EJEC 16 00763 
POOR ADORE EE SOE REER OTTER ESSE DEES OSES OSS SEOESOSESESOHSESESSOSSSHSEEEEEOES 16 00754 
* * 16 00765 
* TITLE - DECODE UNIT FIELD ROUTINE * 16 00766 
® * 16 00767 
* PURPOSE - * 16 00768 
* CALLED BY DIRECTIVE PROCESSORS TO DECODE THE UNIT FIELO, * 16 00769 
* LINE OR TUID, AS SPECIFIED ON THE USER DIRECTIVE. * 16 00770 
* ALSO INITIAL HOUSEKEEPING IS PERFORMED FOR THE TYPE OF UNIE. * 16 00771 
¥ * 16 00772 
* CALLING SEQUENCE - * 16 00773 
. CALL UNIT,LINE,TUID * 16 00774 
% * 16 00775 
* ENTRANCE PARAMETERS - * 16 00776 
bt LINE IS THE ADORESS OF WHERE TO RETURN IF A LINE IS FOUND * 16 00777 
* TUID IS THE ADDRESS OF WHERE TO RETURN IF A TUID 1S FOUND * 16 00778 
. . 
see nevanewesounsaavensnssussnseuesusansenesdsancaacusvssesiaesusevevas. 18 DOT 


UNIT ENTR 


NC6O44 
NC6O46 
UNIT 


0.x 
NC6022 
1,X 
NC6032 


NC6012 


FETCH,NC6O10 


ENTRY CELL 


SAVE X REG 
PICK UP PARM-LIST ADDRESS 


PICK UP LINE HANOLER ADDRESS 
SAVE IN LINE RETURN SEQUENCE 
PICK UP TUIOD HANDLER ADDRESS 
SAVE IN TUID RETURN SEQUENCE 
BUMP OVER PARM LIST 

BUMP OVER PARM LIST 

SAVE IN OTHER RETURN SEQUENCE 


FETCH NEXT CHARACTER 


SUBE co COMPARE AGAINST LOWEST NUMERIC 16 00801 

JAN NC6010 IF NOT ALPHANUMERIC, SKIP TO RETURN 16 00802 

suB como REMOVE RANGE OF NUMERICS 16 00803 

JAN NC64OD IF IN RANGE, SKIP TO LINE PARSER 16 00804 

POOR e eee ee renee eeesecseeesenesessenesnessessenceeseeseesseeeseeoeeseee® 16 00806 
* NOW CHECK THE CHARACTER FOR BEING AN ALPHABETIC * 16 00807 
Asean eerenereeeenees * 16 00808 

LDAE CHAR PICK UP THE CURRENT CHARACTER 16 00809 

SUBE CA COMPARE AGAINST LOWEST ALPHABETIC 16 00810 

JAN NC6O010 IF NOT ALPHABETIC, SKIP TO RETURN 16 00811 

SUBE CZMA REMOVE RANGE OF ALPHABETICS 16 00812 

JAN Nc6és00 IF IN RANGE, SKIP TO TUID ROUTINE 16 00813 

EVEC 16 00814 

PERRO OEE T DOOR OES ESSER ESCESESSOODENSSS ESE ESESEEEESESeeeeEseESOREeS 16 JORIS 
® OTHER RETURN SEQUENCE * 16 00816 
AAP CCRO OTERO ERE ES ESE EOSSEEESES OE SEOESERSeeosenesesecseeeesseesees® 16 00817 
NC6010 LDAI 1) PICK UP OTHER RETURN ADDRESS 16 00818 
NC6012 EQU ==) CELL FOR OTHER RETURN ADDRESS 16 00819 
JMP NC6040 SKIP TO COMMON RETURN SEQUENCE 16 00820 


NC6020 LDAI 
NC6O022 EQU 
IMP 


-1 
NC6O4O 


PICK UP LINE RETURN ADDRESS 16 00825 
CALL FOR LINE RETURN ADDRESS 16 00826 
SKIP TO COMMON RETURN SEQUENCE 16 00827 


VTAM Al 


001423 
oo14e4 


001425 
001426 
001427 
001430 
001431 


001432 
001433 


001434 
001435 


001436 
001437 
001440 
oo1441 
001442 
001443 


OO1444 
001445 
OO144S 
001447 
001450 
001451 
001452 
001453 
001454 
001455 
001456 
001457 
001460 
001461 
001462 
001463 
001464 
001465 
001466 
001467 
001470 
001471 


001472 
001473 
001474 
001475 


001476 
001477 
001500 
001501 
001502 
001503 
001504 
001505 
001506 
001507 
001510 
001511 
001512 
001513 
001514 


001515 
001516 
001517 


006010 
000000 
001424 


054007 
006017 
002454 
006020 
000000 
001431 
006030 
000000 
001433 
001000 
000000 
001435 


002000 
001546 
054775 
140431 
001002 
000133 


005001 
054771 
014767 
002000 
002324 
001004 
001472 
054763 
006030 
000000 
025000 
005144 
001020 
001472 
014754 
145000 
001010 
001476 
O0S144 
005322 
001026 
001462 


010466 
054761 
001000 
000133 


002000 
002416 
002000 
001737 
000133 
144755 
001004 
000133 
140471 
001002 
000133 
002000 
001546 
054720 
005012 


140431 
001002 


D>> 


DE>DY>VS>SDYSy> 


DH>H DHS HE VH HS yMyr D> DYE >>> D>>rvy> 


D>>> 


>> D> Dy > DH ry DDY D> 


A 


000133 R 


2106 
2107 
2108 
2109 


2110 


elie 
23s 
e1ly 
2115 
e216 


217 


2118 
21g 


2120 
etal 


2122 


2123 
21284 
21e5 
2126 
2127 
2128 
21e9 


2130 
2131 
2132 


2134 
2135 
2136 
2137 
2138 
2139 
2140 
en4t 


2142 


2143 
2144 


214s 
2146 
2147 


2148 
214s 
2150 


2151 
2152 
2153 


2155 
2156 


2157 
2158 
2159 
2160 
2161 


2163 
2164 
2165 
2166 


2167 


2168 
2169 


2170 
2171 


e172 


2173 
217% 


2176 
2177 
2178 
2179 
2160 
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POR SE EEE R HEED OS TOS HOSES SERS ESE OSES ERE OSOOSSESESHHESEESEESEES SOE SES ED 


* TUID FOUND RETURN SEQUENCE * 


PreseceCECeCrreererrererirrerrerecrrrrrri titi rir rir iri rit tii 


NC6030 LDAI 0 PICK UP TUIO RETURN ADDRESS 
NC6032 EQU ad | CELL FOR TUIO RETURN ADDRESS 
AOR R OOO ROE EERE DERE O OH OR EEE SED RO OSES SERS SOS OSEESEEOS ESET E ERODES ECOSES 
* COMMON RETURN SEQUENCE wd 
POR R CeCe eee eRe e REE ETRE EERE OSSD SES EEE SEER OS SOSSSSESSES REESE OES ECR E DES 
NC6O4O STA NC6048 SAVE RETURN ADDRESS 

LDAE CHAR PICK UP THE CURRENT CHARACTER 

LOBI tt) RESTORE B REG 
NC6O44 EQU Sah SAVE AREA FOR B REG 

LOXI iy RESTORE X REG 
NC6046 EQU e=3 SAVE AREA FOR X REG 

IMP tt) RETURN TO PROPER ADDRESS 
NC6048 EQU #={ CELL TO HOLD RETURN ADDRESS 

EvEC 
CORTESE ERE E DSSS SESE REE ESSESSOEEE EES OSESES ESSE EEOSEESESSSSSSESESSESED 
° A NUMERIC CHARACTER WAS FOUND, PARSE THE FIRST NUMBER AND * 
. TAKE AS THE CCM HANDLER NUMBER. THE SECOND NUMBER e 
* IS TAKEN AS THE LOGICAL LINE NUMBER. 
POLO DOO E EEE E RED ORETOTEEE REDE RESTOSES FESO OSES ESE EERE EES EDSOSOSSEOHEDOS 


NC6400 CALL NUMBER EXTRACT THE FIRST NUMBER 

STA CCMN STOW AS THE CCM NUMBER 

SUB NC6520 COMPARE AGAINST MAX VALUE 

JAP SYNERR IF TOO LARGE, SIGNAL SYNTAX ERROR 


POR OEOEE HONOR ERO EE SSUES DOSE ESOS ES ES ESO SOESERESESED ODO SSOSESSOEEESER SES 
* NOW VERIFY THAT THE CCM UNIT NUMBER IS VALID " 
PRRODOOE OER R OTS ESES EES ES RODD ESSE DOS OOESE OSES POSED SSSSESESESESEEEDE 
EXT CCSMET EXTERNAL NAME OF EQUIPMENT TABLE 
TZA PICK UP A ZERO 


STA CCMCAD STOW IN CONTROLLER TABLE POINTER 
LOA CCMN PICK UP THE LUN OF THE CCM 

CALL GETCTA MAP TO A CONTROLLER TABLE 

JAN NC6430 IF NOT FOUND, SIGNAL ERROR 

STA CCMCAD ELSE TAKE AS CONTROLLER TABLE 
LOXI CCSMET POINT TO THE EQUIPEMENT TABLE 
LoB 0,x PICK UP NUMBER OF CCMS 

IxR BUMP OVER COUNT 

JBZ NC6430 IF NO CONTROLLER, SIGNAL ERROR 


NC6420 LDA coe PICK UP THE TABLE reiag 
suB COMPARE TO CCMS_ IN TABLI 


JAZ néow4o IF EQUAL, SKIP TO FURTHER PROCESSING 

IxR ELSE BUMP TO NEXT SLOT 

DBR DECREMENT COUNT REGISTER 

JBNZ NC6420 CONTINUE IF STILL INSIDE OF TABLE 
POCO ORO O ROOT EERE OTE RESESESS ERO CESSEEEEU ERE OOESESEEEETTOSEDO OES ES EE SOR 
* WE WERE UNABLE TO LOCATE THE CONTROLLER TABLE ADDRESS * 
J IN THE MULTIPLEXOR EQUIPEMENT TABLE, THUS SIGNAL AN ERROR, ® 


POOP C UIC PIeererericirirerreri iri irrrr ii rrr titi titer 
PICK UP ERROR CODE 

STORE IN CURRENT ERROR TYPE 

JUMP TO SIGNAL ERROR 


NC6430 LDA UDFCCM 
STA ERRTYP 
JMP SYNERR 


POOSEO ROOD ROCCO STOE RED ORO E DED DOSE USES OR OESER OLED OOOO ESO SSDSOOESESED 


* CCM NUMBER IS OKAY, CONTINUE TO PARSE THE DIRECTIVE ih 


rere eeeeserereerrrerrrciritei rere rier irre rrr tr etter) 


NC644O CALL CHKCOM CHECK FOR DELIMITING COMMA 
CALL FETCH,SYNERR FETCH CHAR FOLLOWING COMMA 
SUB co REMOVE CHARACTER ZERO 
JAN SYNERR IF NOT NUMERIC, SIGNAL ERROR 
sus como REMOVE RANGE OF NUMERICS 
JAP SYNERR IF NOT NUMERIC, SIGNAL SYNTAX ERROR 
CALL NUMBER EXTRACT THE SECOND NUMBER 
STA LSON STOW AS THE LOGICAL LINE NUMBER 
TAB COPY TO B REG 


CREO S OEE O OREO C EES EU OEE ESTE ODEO SESESES OREO OOSEESSESESESETESESEE ES OOSES 


° NOW COMPUTE RMD ADDRESS OF PSD AND READ THE SECTOR ‘dm | 


PUP OT OHO OREO TE TE TEETER EEO DESO OET EEE DESDE DECTEN ESOS OSEEEREOOTOESED 


SUB NC6520 COMPARE AGAINST MAX VALUE 
JAP SYNERR: IF TOO LARGE, SIGNAL SYNTAX ERROR 


VTAM Al 
001520 00500! A 2181 
001521 174023 A 2162 
001522 005122 A 2183 
001523 064723 A 2184 
001524 005012 A 2185 
001525 005001 A 2186 
001526 160465 A 2187 
001527 064720 A 2188 
001530 014734 A 2189 
001531 054720 A 2190 
001532 002000 A 2191 
001533 002020 R 
001534 002000 A 2192 
001535 001727 R 

2194 

2195 


001536 
001537 
001540 


oo1s41 
oo1s4e 
001543 
001544 


001545 


001560 
001561 
001562 
001563 
001564 
001565 
001566 
001567 
001570 


001571 
001572 
001573 
001574 
001575 
001576 
001577 


001600 
001601 
001602 


015002 A 2197 
006410 A 2198 
001417 R 


o10422 A 
054712 A 
001000 A 2205 
000133 R 


2208 
2209 
000431 A 2210 
000030 A 2211 
000465 A 2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
e2ee2 
2223 
2224 
2225 
2226 
000000 A e227 
014704 A 2228 
144710 A 2229 
054031 A 2230 
020471 A 2231 
064030 A 2232 
001016 A 2233 
001560 R 
010424 A 2234 
054024 A 2235 


002000 A 
001737 R 
001600 R 
144675 A 2241 
001004 A 2242 
001600 R 
144015 A 2243 
001002 ‘ 2e44 


001600 


= 
° 
_ 
B>r>>>>> 
~~ 


014002 A e262 
001000 A 
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TZA ZERO A REG FOR DIVIDE 

Dlv NC6530 COMPUTE SECTOR ADDRESS AND REMAINDER 

16R MAKE ONE‘*S ORIGIN 

ste SECTN STOW AS THE SECTOR NUMBER 

TAB COPY REMAINDER TO B REG 

TZA ZERO A FOR MULTIPLY 

MUL NC6540 COMPUTE DISPLACEMENT IN WORDS 

sTB oIsP STOW AS THE CURRENT DISPLACEMENT 

LOA OFLPTR PICK UP FCB POINTER CONSTANT 

STA FCBPTR STOW AS THE CURRENT FCB 

CALL READ READ THE SECTOR 

CALL CALC CALCULATE ADDRESS OF BLOCK 
PITTI T yr 
e NOW SEE THAT LSD IS DEFINED m= 
PPOTTSTPTTTTSTITT TTI ITeerTerTerrrreerireerrrcrererreerreeerrr errr ree) 

LOA PSOEF ,X PICK UP WHOLE WORD 

8T PSDEFB,NC6020 SKIP IF LSD IS DEFINED 
PPIITITITTITETTITTTTT TTT TTT reir ieeerceeery errr) 
. ELSE SIGNAL ERROR CODE UDFLNE . 
eoenecccccconsecscnccceeseesensccccouseccoesseconeseccescsoccccesecoes 

LOA UOFLNE PICK UP ERROR CODE 

STA ERRTYP STOW IN ERROR HOLDER 

JMP SYNERR JUMP TO SIGNAL ERROR 
PPITTTTITITTTLISTTTILTRTTLITTTLTTTTiTTTTTtTtTeeeereeete eer rer) 
e WORK AREAS AND EQUATES FOR LOCAL USE ° 
Pevenesencereveeeeeeecceeeeeeenneneesesenesee enero eesooecesconcocosenee 
NC6520 EQU bse MAX LSD NUMBER (255) PLUS ONE 
NC6530 DATA = 24 NUMBER OF LSD/SECTOR 
NC654O EQU FIVE SIZE OF EACH LSD 

EEC 
PYITTTITITTTTTTTTTTITI TTT TTTeTTCerrrCeeeri Cee retry 
r . 
© TITLE - NUMERIC EXTRACTION ROUTINE . 
a7 oJ 
* PURPOSE - . 
* THIS ROUTINE CONVERTS ASCII NUMERIC INPUT CHARACTERS . 
° TO INTERNAL BINARY NUMBER. RESULT IS RETURNED ® 
* IN THE A REG, . 
. rs 
* CALLING SEQUENCE = . 
. CALL NUMBER . 
. ry 
PIIISTITITITITITTTTLTITITTTTTTTTTTTTTTTeerereieertee etter ry 
NUMBER ENTR ENTRY CELL 

LOA CHAR PICK UP THE CURRENT CHARACTER 

sus co REMOVE CHARACTER ZERO 

STA NC6700 TAKE AS INITIAL VALUE 

Log TEN LOAD CONSTANT TEN 

$T8 NC6710 USE _AS DEFAULT RADIX 

YANZ —-NCBBIO SKIP IS OTHER THAN ZERO 

LDA EIGHT LOAD CONSTANT EIGHT 

STA NCB710 USE AS OCTAL RADIX 


SUB co REMOVE CHARACTER ZERO 

JAN NC6620 IF LESS THAN ZERO, CANNOT BE NUMERIC 
sus NC6710 REMOVE RADIX 

JAP NC6620 IF STILL POSITIVE, TOO LARGE A VALUE 


‘o')) 


Ck UP T 
REMOVE CHARACTER ZERO 
LOAD PREVIOUS ACCUMULATOR VALUE 
TIMES RADIX, PLUS THIS DIGIT 
STOW BACK INTO ACCUMULATOR 
CONTINUE NUMERIC SCAN 


* NUMBER IS NOW COMPLETE, SINCE A _NON-NUMERIC WAS SENSED, 

® LOAD THE RESULTING NUMBER INTO THE A REG AND 

. RET! To T EI 

. eececeeecvene 

NC66Z0 LDA ICK UP_THE ACCUMULATED VALUE 
JMP* NUMBER RETURN TO THE CALLER 


VTAM AL 


001603 000000 A 


001604 


001605 
001606 
001607 
001610 
001611 
001612 
001613 
OO16I4 


001615 
001616 
001617 
001620 
. 001621 
001622 
001623 
001624 
001625 
001626 
001627 
001630 
001631 
001632 
001633 
001634 


001635 
001636 
001637 
001640 
001641 
001642 


001643 
001644 
001645 
001646 
001647 
001650 
001651 


001652 
001653 
001654 
001655 
001656 
001657 
001660 
001661 


001662 
001663 
001664 
001665 
001666 
001667 
001670 
001671 


001672 
001673 
001674 
001675 
001676 
001677 
001700 
001701 
001702 
001703 
001704 
001705 
001706 
001707 


000000 


014646 
054631 
014653 
054630 
054630 
054630 
o104e2 
O54111 


002000 
001737 
001652 
144640 
001004 
001652 
140471 
001004 
001635 
014625 
144632 
001004 
001652 
144631 
001002 
001652 


014070 
140465 
001002 
000133 
014064 
006120 


002437 
005014 
014606 
055000 
044056 
001000 
001615 


014565 
004250 
114564 
054566 
014563 
004250 
114562 
054563 


014603 
054566 
010421 
054561 
005001 
054560 
002000 
002020 


014555 
120423 
054553 
004342 
144677 
005311 
001002 
001716 
002000 
001727 
015000 
144536 
001016 
001672 


A 


PPE >rr er 


DY>Dy>y>DyEr yy rpV> 


D>>rrrD yy DSE>> 


Pr >r>rrrr 


Derr >r>rr> 


DY>rH D> VS y>ryrrrr 
n 


2266 
2267 
2268 
2269 


2270 
2271 
2e72 
2273 
2e74 
2275 
2276 
2277 
2278 
2279 
2280 
2281 


2283 
2284 
2285 
2286 


2287 
2288 


2289 
2290 


2291 
2292 
2293 


2294 
2295 


2297 
2298 
2299 
2300 
2301 
2302 


2303 
2304 
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* DATA AND WORK AREAS FOR NUMERIC EXTRACTION ROUTINE iw 
PeOeeCCOCCCSUSESCOSCOCCESCeCUSCCOSeCCrrcrecccerr rer irecrereririr irr tir ry 
NC6700 DATA te) NUMERICAL ACCUMULATOR 
NC6710 DATA Qo RADIX STORAGE 

EJEC 
PRR E RRC CERES EEO E SECO ESOC CERES EEE SE EEE NERS SEE OESESEEESE ESS ESESEEEEEEES 
* A TUID WAS SENSED, INITIALIZE AND STORE THE FIRST CHARACTER . 
RRRR ROO O ONO E TORSO PEE SER EES EED OSS EEEESERSEREEE SEE OSE SES TEES waenee 
NC6800 LDA CHAR PICK UP THE CURRENT CHARACTER 

STA TUID TAKE AS FIRST CHARACTER OF TUID 

LDA BLANK PICK UP A BLANK 

STA TUID+1 CLEAR WORD 2 

STA Tulb+2 CLEAR WORD 3 

STA TUID+3 CLEAR WORD 4 

LOA THO PICK UP A CONSTANT TWO 

STA NC6S00 AND USE AS INITIAL INDEX 


RARER EEO O RSENS ROSES SESE ESTER EEE ESE SESS EEE SORES ERSSE NEESER ESOS DEER EEEES 


* NOW FETCH NEXT CHARACTER AND CHECK FOR ALPHANUMERIC * 


Oe eC eS ESOC erere rises rier it ere icici creer ererirererrererrerrirrrir ty tty 


NC6810 CALL FETCH,NC6830 OBTAIN THE NEXT INPUT CHARACTER 

SUB co COMPARE TO LOWEST NUMERIC 

JAN NC6830 IF NOT ALPHANUMERIC, SKIP TO READ TIB 

SUB COMO REMOVE RANGE OF NUMERICS 

JAN NC6820 SKIP IF CHAR IS NUMERIC 

LDA CHAR RESTORE CURRENT CHARACTER 

suB CA COMPARE AGAINST LOWEST ALPHABETIC 

JAN NC6830 IF NOT IN ALPHABET, SKIP TO READ TIB 

suB CZMA REMOVE RANGE OF ALPHABET 

JAP NC6830 IF NOT ALPHABETIC, SKIP TO READ TIB 
POO OO TEETER E ODER E DEEDES O ODEO DOSE ETESESSHS HES ESESEOFESEEEEEDOSOSONED 
* CHARACTER 1S ALPHANUMERIC, STORE IN TUID VECTOR . 
Oe errr Cer Cee reer irrrrrerererr irr rirererirririiiriiii itty 
NC6820 LDA NC6900 PICK UP CURRENT INDEX 

SUB FIVE COMPARE AGAINST MAX VALUE 

JAP SYNERR IF TOO LARGE, SIGNAL SYNTAX ERROR 

LDA NC6S00 ELSE RESTORE INDEX 

ADDI TUID-1 ADD IN BASE LOCATION 

TAX COPY TO INDEX REGISTER 

LDA CHAR PICK UP THE CHARACTER 

STA 0.x AND STUFF INTO THE VECTOR 

INR NC6g00 THEN BUMP INDEX 

JMP NC6810 LOOP TO TRY THE NEXT CHARACTER 


TUID43 
PTUID+1 


PICK UP FIRST CHARACTER 
SHIFT LEFT IN WORD 

OR IN SECOND CHARACTER 
SAVE AS FIRST PACKED WORD 
PICK UP THIRD CHARACTER 
SHIFT LEFT IN WORD 

OR IN FOURTH CHARACTER 
SAVE AS SECOND PACKED WORD 


POOR DESEO DCE EOETEEDEREEET TERETE OEE DEED ESOS SESEUEDERSODSSTES EERO DOOD 


bed NOW READ ONE INDEX SECTOR FROM FILE VTSDFT e 


POROEO DECC EEE OEE CET ETE E TEESE EOE EEE ED ESO DSSUSEP EEE ED EDS OSEU DERE D ERED 


LDA 
STA 


LDA 
NC684O STA 


OFTPTR 
FCBPTR 


ONE 
SECTN 
ISP 
READ 


PICK UP FCB POINTER CONSTANT 
USE AS CURRENT FCB 

LOAD A CONSTANT ONE 

TAKE AS CURRENT SECTOR NUMBER 
ZERO A REG 

USE AS INITIAL DISPLACEMENT 
READ THE INDEX SECTOR 


POOOEEESESETTEEEEEESEESEESSESOSP EOE EOR DEES OSSETEET EEE REE SSESE EES ED 


id SEARCH INDEX SECTOR FOR TUID MATCH * 


SOCOM OREO ETE ED ESSE COSTE EES ESER ESOS SES OEE DSS OSSEEEDOER USER SESS EEOHEREDS 


NC6850 LDA 


CALC 


TITUL,X 
PTUID 
NC6850 


PICK UP OLD DISPLACEMENT 

INCREMENT BY TIB SIZE 

USE AS NEW DISPLACEMENT 

CONVERT DISPLACEMENT TO ORDINAL 

COMPARE TO NUMBER OF TIB'S IN SECTOR 
ADJUST BEFORE JUMP TEST 

IF GREATER THAN, SKIP TO READ NEW SECTOR 


COMPUTE BLOCK ADDRESS IN X REG 
LOAD FIRST TWO CHARS OF TUID 


COMPARE AGAINST PACKED USER TUID 
IF NOT EQUAL, TRY NEXT TIB 


VTAM Al NCM (13h) PAGE 


001710 015001 A 2348 LOA TITUe,x LOAD SECOND TWO CHARS OF TUID 16 01071 
001711 144533 A 2349 suB PTUID+L COMPARE AGAINST PACKED USER TUID 16 01072 
001712 001010 A 2350 JAZ NC6030 IF EQUAL, RETURN TO THE CALLER 16 01073 
001713 001423 R 
001714 001000 A 2351 JMP NC6850 ELSE, TRY THE NEXT TUID 16 01074 
001715 001672 R 


2I5Z Pee escrecccecceccnsesssseesssessesscessseseressssseusssessesssssssessss 16 1076 


2354 * THIS SECTOR HAS BEEN COMPLETELY PROCESSED, WITHOUT A MATCH, * 16 01077 

esos * NOW SEE IF THERE IS ANOTHER INDEX SECTOR. * 16 01078 

235G Poet eeeeenvcccererenseeeseessereeseasceuseenecseessesesesesuseeeuseeess 16 01079 
001716 O14661 A 2357 NC6860 LDA SECTOR+TISEC PICK UP THE THREAD WORD 16 01080 
001717 004347 A 2358 LSRA TISECB SHIFT OUT THE DISPLACEMENT 16 01081 
001720 001016 A 2359 JANZ NC6840 IF SECTOR NOT ZERO, CONTINUE LOOP 16 01082 
001721 001665 R 


seeeseeses 


peseees 


. 


2362 * AT THIS POINT, THE USER-SPECIFIED TUID WAS NOT FOUND. * 16 01085 

2363 * SIGNAL ERROR CODE UDFTIO * 16 01086 

23GY CHRO ER ORES THEO ERE ER DERE RHEE EO ERO Ce rere eeEEraseseseseeseeeesHeseseeee® 16 01087 
001722 010464 A 2365 LDA UDFTID PICK UP ERROR CODE 16 01088 
001723 054531 A 2366 STA ERRTYP. STOW IN ERROR HOLDER 16 01089 
001724 001000 A 2367 IMP SYNERR JUMP TO SIGNAL ERROR 16 01090 
001725 000133 R 


IEG POPP ee enna neereeeeeeee sees ee esesESE EHS ESEHESESSESDSESeCESEEHESSEREESES® 16 01092 


2370 « CONSTANTS AND WORK AREAD FOR UNIT * 16 01093 
237] FASO R eRe me een eeeDeeee eee FET EEREOHESESEST EE ESESESEESESeEESEEEEEEHSESES 16 (1194 
2372 16 01095 
001726 000000 A 2373 NC6S00 DATA i) WORKING STORAGE FOR ROUTINE 16 01096 


TITLE - CALCULATE ADDRESS OF BLOCK ROUTINE 01100 
2378 * 01101 
2379 * PURPOSE - 01102 
2380 * CALC IS A GENERAL-PURPOSE ROUTINE TO CALCULATE THE 01103 
2381 ADDRESS OF BLOCKS WITHIN THE DISK BUFFER. 01104 


THE RESULTING ADDRESS IF LEFT IN THE X REG AND 01105 


. 
+ 
2383 * CELL 'BLKPTR'. 01106 
2384 * 01107 
2385 * CALLING SEQUENCE - 01108 
2386 * CALL CALC 01109 
2387 * 10 
2388 * ENTRANCE PARAMETERS ~ Mt 
2389 * NONE 12 
2390 * 13 
2391 ¢ 14 
001727 000000 A 2392 CALC ENTR ENTRY CELL 15 
001730 006010 A 2393 LOAI SECTOR POINT TO BUFFER START 16 
001731 002576 R 
001732 124515 A 2394 ADD OISP AOD IN DISPLACEMENT 1117 
001733 005014 A 2395 TAX TRANSFER TO X REG 1118 
001734 054514 A 2396 STA BLKPTR ALSO COPY TO 'BLKPTR' ig 
001735 001000 A 2397 JMP® CALC RETURN TO THE CALLER 1120 
001736 101727 R 
2398 EEC 16 01121 
2399 * * 16 O1122 
2400 * * 16 01123 
2401 * TITLE - INPUT CHARACTER FETCH ROUTINE * 16 01124 
e402 * * 16 01125 
2403 * PURPOSE - * 16 01126 
2404 * FETCH IS CALLED WHENEVER THE NEXT INPUT CHARACTER * 16 01127 
2405 * 1S REQUIRED. THE CHARACTER IS GOTTEN FROM THE DIRECTIVE * 16 01128 
2406 * BUFFER AND UNPACKED. THE RESULT IS PLACED BOTH IN THE A REG * 16 O11e9 
2407 * ANDO THE CELL ‘CHAR’, * 16 01130 
2408 * * 16 O1131 
2409 * CALLING SEQUENCE - * 16 01132 
e410 * CALL FETCH,RTN * 16 01133 
eu © * 16 O1134 
2412 * ENTRANCE PARAMETERS - * 16 01135 
e413 * RIN IS THE ADDRESS OF A ROUTINE TO GAIN CONTROL IS * 16 01136 
2414 * A PERIOD IS SENSED (END OF DIRECTIVE). * 16 01137 
e415 * * 16 01138 
R41G eeveces * 16 01139 
001737 000000 A 2417 FETCH ENTR ENTRY CELL 16 01140 
e419 eee 16 01142 
e420 * 16 01143 
e421 * ee * 16 O1144 
001740 006037 A e422 LDXE FETCH PICK UP PARM-LIST ADDRESS 16 01145 
001741 001737 R 
001742 005041 A 2423 TXA COPY TO A REG 16 01146 
001743 OOS111 A 242e4 1AR BUMP TO SKIP OVER PARM 16 01147 
O01744 O54046 A e425 STA NC7252 SAVE IN NORMAL RETURN SEQUENCE 16 01148 
001745 015000 A 2426 LDA 0,x GET ADDRESS OF EOF HANDLER 16 01149 
001746 054047 A e427 STA NC7262 SAVE IN EOF RETURN SEQUENCE 16 01150 


PYSG FESO eee ee eee eee EOE EEO ESOT ESEDSOSEE SEO COED ESESSSOESESSSSESOSEEOEESESO® 16 01152 


2430 * NOW CHECK NEXT CHARACTER TO INSURE IT‘S INSIDE BUFFER * 16 01153 

DUB] POO Cease ees esses sees ee eeeee ee eeeseeesessESeseressseseeseseseeneseses 16 D1154 
001747 014503 A 2432 NC7210 LDA COLPTR LOAD ADDRESS OF NEXT BYTE 16 01155 
001750 004341 A 2433 LSRA 1 SHIFT OUT LEFT-RIGHT FLAG 16 01156 
001751 006140 A 2434 suBI ENDBUF COMPARE AGAINST END OF BUFFER 16 01157 
001752 003036 R 
001753 001004 A 2435 JAN NC7220 IF INSIDE, SKIP TO FETCH CHAR 16 01158 
001754 001761 R 


VTAM AL 

001755 014500 A 2436 LDA PERIOD 
001756 054475 A 2437 STA CHAR 
001757 001000 A 2438 MP NC7260 
001760 O02014 R 


DUYD eeeeneeenserecereeesaeres 
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ELSE, PICK UP A PERIOD 16 01159 
TAKE AS CURRENT CHARACTER 16 01160 
AND SKIP TO EOF RETURN SEQUENCE 16 O1161 


e44l * COLPTR IS INSIDE BUFFER, OKAY TO GET NEXT CHARACTER * 16 O1164 
DYUYD Sens eeneeereesenereeceseuseessesseassessessessssessessessessssessssess 16 01165 
001761 014471 A 2443 NC7220 LDA COLPTR PICK UP NEXT BYTE ADDRESS 16 01166 
001762 OCO4WS4! A 2444 LLSR 1 SHIFT OUT LEFT-RIGHT FLAG 16 01167 
001763 004157 A 244s LSRB 15 RIGHT-JUSTIFY IN B REG 16 01168 
001764 005014 A 2446 TAX COPY TO INDEX REG 16 01169 
001765 015000 A 2447 LDA 0.x LOAD THE WHOLE WORD 16 01170 
001766 003020 A 2448 xBZ NC7320 SHIFT IF FLAG IS OFF 16 O1171 
001767 002017 R 
001770 150463 A 2449 ANA RHW MASK OFF LEFT BYTE 16 01172 
001771 054462 A 2450 STA CHAR TAKE AS CURRENT CHARACTER 16 01173 
001772 O44460 A 2451 INR COLPTR BUMP INDEX POINTER TO NEXT BYTE ADDRESS 16 O1174 
2453 * 16 01176 
e454 * HARACTE! 16 01177 
2U55 eee en enereeeeenene * 16 01178 
001773 005012 A 2456 TAB COPY CURRENT CHARACTER TO B REG 16 01179 
001774 144466 A 2457 SUB BLANK COMPARE FOR A BLANK 16 01180 
001775 001010 A 2458 JAZ NC7210 IF EQUAL TO A BLANK, GO GET ANOTHER CHAR 16 01181 
001776 001747 R 
001777 005021 A 2459 TBA RESTORE CURRENT CHARACTER 
002000 144455 A 2460 SUB PERIOD COMPARE FOR A PERIOD 
002001 001010 A 2461 JAZ NC7260 IF PERIOD, SKIP TO EOF SEQUENCE 
02002 002014 R 
002003 005021 A 2462 TBA RESTORE CURRENT CHARACTER 
002004 144453 A 2463 sSuB EQUAL COMPARE AGAINST EQUAL SIGN 
002005 001016 A 2464 JANZ NC7250 IF NOT EQUAL, SKIP TO NORMAL RETURN 
002006 002011 R 
002007 O14447 A 2465 LDA COMMA IF EQUAL SIGN, REPLACE WITH A COMMA 
002010 054443 A 2466 STA CHAR USE AS CURRENT CHARACTER 


e469 * NORMAL RETURN SEQUE! 
27D Seeeseeeeceeserernessesees 
002011 014442 A 2471 NC7250 LDA CHAR 
002012 001000 A e472 JUMP 0 
002013 000000 A 
002013 R 2473 NC7252 EQu a | 


eeeee 
PICK UP CURRENT CHARACTER 
RETURN TO THE USER 


SAVE AREA FOR RETURN ADDRESS 


UTS POOR eneeneeeeseneseseeeeeeseeeeeeeseneeeesenenseeaeeresenseseseeeeees 16 01199 


EOF RETURN SEQUENCE * 16 01199 

Ceeeseneoneeenesereenesereeeeseceeseseeneoseneeseseneee® 16 01200 

002014 014437 CHAR PICK UP_ CURRENT CHARACTER 16 01201 

002015 001000 0 RETURN TO THE USER 16 01202 
002016 000000 

002016 e=$ SAVE AREA FOR RETURN ADDRESS 16 01203 

16 01205 

é FETCH CONSTATS ANDO WORK AREA‘ 16 01206. 

PUBY Pheeesereeeercoeseeeoseeees eee 16 01207 

002017 004350 A 2485 NC7320 LSRA 8 SHIFT A REG RIGHT ONE BYTE 16 01208 

2486 EEC 16 01209 

QUBT SHebeneneneesesenecesnenerereenonesesnovesessenesneneneseeseosesessenes 16 O1210 

eues ¢ * 16 01211 

2489 * TITLE - RMD READ/WRITE ROUTINE * 16 01212 

e4g0 * * 16 01213 

2491 * PURPOSE - * 16 01214 

euge * THESE ROUTINES PROVIDE AN INTERFACE FOR THE CALLER TO THE THO * 16 01215 

2493 *  RMO-RESIDENT VTAM FILES, VTSOFL AND VTSOFT. * 16 01216 

eugy ¢ * 16 01217 

2495 * CALLING SEQUENCE ~ * 16 01218 

2496 * CALL READ * 16 01219 

2497 * CALL WRITE * 16 01220 

2498 + * 16 01221 

2499 * ENTRANCE PARAMETERS - * 16 01222 

2500 *  SECTN IS THE DESIRED SECTOR NUMBER TO TRANSFER * 16 01223 

2501 *  FCBPTR IS THE FCB TO BE USED FOR THE TRANSFER * 16 01224 

2502 * * 01225 

2503 PHO seeereeneneneneneseenenereenseenenereseenensenesevesesseseeneseseee® 16 01228 


2505 Heevesecevsccccverereesecsecessesesesevesssessesssescsconcssessesessess 16 01228 


2506 * 


READ SECTOR ENTRY POINT * 16 01229 


2507 See eeeeneeeeeseseeeeseee HSS EHESSODOFSSOETERSEOHSOSEEEEESESORSS 16 01230 


ENTRY CELL 


002020 000000 A 2508 READ ENTR 


2510 * eneee 
esil * FIRST CHECK TO SEE 1 
esi2 « IN THE SECTOR BUFFER. 
e513 ¢ 
2esi4 « 

002021 014101 A 2515 LOA NC7730 

o02022 144427 A 2516 SUB FCBPTR 

002023 001016 A 2517 ANZ NC7610 

002024 002034 R 

002025 034424 A 2518 Lox FCBPTR 

002026 015003 A 2519 LDA 3.x 

002027 144417 A 2520 SUB SECTN 

002030 001016 A 2521 JANZ NC7610 

002031 002034 R 

002032 001000 A 2522 UMP * READ 


epeeseeeee 


TED SECTOR ALRE: 
TRANSFER IS SKIPPEO IF THE 


ADY IN 
REQUESTED 


PICK UP LAST FCB-USED POINTER 
COMPARE AGAINST CURRENT FCB 
IF NOT EQUAL, GO TO 00 READ 


POINT TO CURRENT FCB 


PICK UP LAST SECTOR READ 1 

COMPARE AGAINST CURRENT SECTOR REQUEST 16 01243 
IF NOT EQUAL, GO TO DO READ 16 01244 
RETURN TO THE CALLER 16 01248 


VTAM AL 


002033 


002034 
002035 
002036 
002037 
002040 
002041 
02042 


002043 
oo2044 
002045 
002046 


002047 
002050 


002051 
002052 
002053 
oo2054 


002055 


002056 
002057 
002060 
002061 
002062 


002063 
002064 


002065 
002066 
002067 


002070 
002071 
002072 
002073 
002074 
002075 
002076 


002077 
002100 
002101 
002102 
002103 
002104 
002105 


002106 
002107 


002110 
oo2111 


o02112 
002113 
002114 
002115, 
002116 
002117 
002120 


102020 


O14415 
054065 
014062 
006037 
002020 
001000 
002047 


000000 
014055, 
006037 
002043 


054023 
074036 


024400 
016004 
001016 
002065 


064004 


006505 
000746 
100000 
013152 
000000 


000000 
000000 
002062 


014361 
056003 
064004 


006505 
002057 
100000 
010152 
000000 
000000 
000000 
002073 
002074 


006505 
000000 
002070 
002110 
002110 
ooei10 
oo2110 


001000 
000000 
002107 


005021 
20423 


144352 
001010 
002116 
020465 
064336 
001000 
000133 


D> Dyerrr 
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2524 


2525 
2526 
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ERD R ODES E SD OS EEE SEESEEERESESOSOSSESESESOSSOSEESSESSOESSE SES SESS OSES SEES 


. AT THIS POINT, A READ IS REQUIRED, DO FINAL SETUP * 
ARNO OOOO eee OER OOOH EEE E ORE E SOOO OSES SESH E REST EERE O EET E SERED 


NC7610 LOA FCBPTR PICK UP CURRENT FCB ADDRESS 


STA NC7730 AND TAKE AS LAST FCB-USED 
LDA NC7710 PICK UP READ OP-CODE 

LOXE READ PICK UP THE RETURN ADDRESS 
JMP NC7630 SKIP TO COMMON SEQUENCE 


sees 


eee 


. WRITE SECTOR ENTRY POINT . 
Ceneceeen eee eee seen nee e nee e ne nen e een sen eeeeeeeneneneeeceneessecceceenes 
WRITE ENTR ENTRY CELL 

LOA NC7720 PICK UP WRITE OP-CODE 

COXE —- WRITE PICK UP THE RETURN ADDRESS 
PPOTETEETTTITITIT TIT err rrrrrrirrreereerrrrrrereerrr irri rrr rere ree ee 
. COMMON SEQUENCE . 
PPOPETTTSTTTTeTererrirrrrrrrrrrrrrrrrrirerrrerrrerrrererr rere rere eee 
NC7630 STA NC7654 STOW OP-CODE INTO MACRO 

STx NC7668 SAVE RETURN ADDRESS 


2568 
2569 
2570 


2572 
2573 
e574 
2575 


2576 


2578 
e573 
e580 
e581 
e582 


e583 
e584 


2585 
2586 
2587 


PICK UP POINTER TO FCB 
LDA 4,8 PICK UP OPEN INDICATOR 
SKIP IF ALREADY OPENED 


AERO R ECR O TORE T SEETHER DEERE DORE S SEES EERO ROS OEEEEEEES ENTE HE EES 

. OPEN IS REQUIRED FOR FCB ° 

APOE E OOO E OEE ESET E DEEDES ESE REOEH OSS ESE EDS ESOOREEEEESS ESSERE OED 
sTB NC7642 STORE FCB POINTER IN OPEN MACRO 

NC7640 OPEN O,RMDLUN,WAIT,1 


NC7642 EQU NC7640+4 POINTER TO THE FCB ADDRESS 

ARADO R OTRO OTERO EERE OREO OOD E OES SOSOOEOSSEDESESTSOEEEE OES ED DEERE DOOD 
* FILE IS NOW OPEN, COMPLETE REQUEST, ISSUE REQUEST, AND CHECK * 
* RESULT. . 


SOROS eee eee ESE ETE R ERED EE ERODED OSDOSDOTEESSOSESSEESSUS DEDEDE SUSE EED 
NC7650 LDA SECTN PICK UP REQUESTED SECTOR 

STA 8 STOW IN FCB 

STB NC7656 STOW FCB ADDRESS IN MACRO 
NC7652 READ 0,RMDLUN,WAIT,ASCIT 


NC7654 EQU NC7652+3 
NC7656 EQU NC7652+4 


EQUATE FOR OP-CODE 
EQUATE FOR FCB ADDRESS 


STAT NC7652 ,NC7670 ,NC7670 ,NC7670 ,NC7670 


16 
16 


JMP ti) RETURN TO CALLER 
NC7668 EQU e-1 SAVE AREA FOR P REG 
POOR O OO ORES ESOS ETE REESE ETE EOE OUEETESES ETERS ESES ORES TESOL OSE SSDESOED 
rd SOME ERROR WAS DETECTED ON THE LAST TRANSFER, SIGNAL 1/0 ERROR * 
POOP eCIPeCPereree irre rrr rec ire rere rere reer irri) 
NC7670 TBA COPY FCB POINTER 

LOB TOEOFL PICK UP DFL INDICATOR 

suB OFLPTR COMPARE FCB ADDRESS 

JAZ NC7672 IF EQUAL, SKIP 

LOB 1OEOFT ELSE PICK UP OTHER CODE 
NC7672 STB ERRTYP STOW IN ERROR HOLDER 

SMP SYNERR JUMP TO SIGNAL ERROR 


oneove 


19 


VTAM AL 


ooetel 
o021e2 
002123 


002124 
o0e1e5 
002126 
002127 
002130 
002131 
002132 
002133 
002134 
002135 


002136 
002137 
002140 
ooe141 
002142 
002143 
002144 
002145 
002146 
002147 


002150 
002151 
002152 
002153 
002154 
002155 
002156 
002157 
002160 
002161 


002162 
002163 
002164 
002165 
002166 
002167 


002170 
002171 


002172 


002173 
002174 
002175 
002176 
002177 
002200 
002201 


oo2202 
002203 
002204 
002205 
002206 
002207 
002210 


000152 
000552 
oo0000 


000170 
002576 
001306 
oooo00 
oooc00 
000000 
000000 
153324 
122304 
143314 


000170 
002576 


Pr rrr rrr D> Fr rrrrrr D> rrr 


000000 
006017 
002150 
054054 
006010 
002526 
054055 
014052 
001000 
002172 
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000000 
006017 
002162 
054042 
006010 
002766 


054043 
014037 
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054003 


006505 
002071 
100000 
000000 
002233 
000000 
000000 
002176 


006505 
002100 
002173 
000240 
000240 
000240 
000240 R 
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e590 
2591 
e5ge 
2593 
2594 
2595 


2596 


2642 
2643 


2645 
2646 
2647 
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be CONSTANTS AND WORK AREAS FOR READ/WRITE ROUTINE 2 


SEC R RCO REE ETERS REDE ETERS EER ERERERED OSS OCOEE REED ES ESOS ESO OUTET ERSTE SED 
NC7710 LOMAC WAIT,BIN,READOP ,RMDLUN 
NC7720 IOMAC WAIT,BIN,WRITOP,RMDLUN 


NC7730 DATA 0 FCB LAST USED POINTER 
DFLFCB FCB 120, SECTOR, DIRECT ,FLKEY,‘VT', $0", ‘FL’ 
DFTFCB FCB 120,SECTOR,DIRECT,FLKEY,'VT','$D', ‘FT! 

EEC 
deonennedeceesecneccrencoscecconsecceeseusccecescoesecceseencenscceseese 
. . 
* TITLE - TYPE AND KEY - I/O INTERFACE FOR OC UNIT . 
. ‘ 
* PURPOSE - . 
* THIS ROUTINE SERVES AS AN INTERFACE BETWEEN THE CALLER . 
* AND THE OC DEVICE (OPERATOR COMMUNICATION) . . 
° . 
* CALLING SEQUENCE - . 
. CALL OTYPE . 
. CALL KEY * 
° . 
* ENTRANCE PARAMETERS - ° 
* IF CALLING TYPE, OUTPUT MESSAGE MUST BE IN ‘LINE’ BUFFER * 
* IF CALLING KEY, INPUT MESSAGE WILL BE PLACED IN ‘BUF’ . 
° . 
MPPITTTTITITTTSTITTTTTTTTTEPTTITTTTTTTiTererrreeerirererTi Tere) 
PIITTITITTTTTTTTIT TTT 
. WRITE TO KEYBOARD ENTRY POINT . 
PPESTTTLTTITETTELISTITTTLT Tee Tiree rriereerri Teeter reeTeeeT eet ee 
TYPE ENTR ENTRY CELL 

LDAE TYPE PICK UP THE RETURN ADDRESS 

STA Ncs04e PLACE IN RETURN SEQUENCE 

LDAI LINE POINT TO OUTPUT BUFFER 

STA Nc8180 STOW INTO DCB 

LDA NCB140 PICK UP WRITE OP-CODE 

MP NcB020 SKIP TO COMMON SEQUENCE 


PEO OC ECE ETOETEE TOOT ODEO OSES OOOE DESDE SESE E USD ESOESOSESHH OSES SOSH SURED 


- READ KEYBOARD ENTRY POINT . 


eeeeneoneses SOeDeeeeneeeeeeeeeseeeeereses 
KEY ENTR 

LDAE KEY PICK UP THE RETURN ADDRESS 

STA NCB048 PLACE IN RETURN SEQUENCE 

LDAI BUF POINT TO INPUT BUFFER 

STA NC8180 STOW INTO OCB 

LDA NC8120 PICK UP READ OP-CODE 


oe 


oe 


Nce0et s 
NC8030 READ NC6160,0,0,0 ISSUE REQUEST 


NC8032 EQU NC8030+3 POINTER TO OP-CODE SLOT 
STAT NC8030, EXIT, EXIT, EXIT, EXIT 


PROC CERO EEOC OREO O EOE OSSEESSUR UTERO DETTE EESSESESESTEOR ONS E HOSUR OSES 


* IF OPERATION WAS ‘WRITE’, LINE BUFFER MUST BE CLEARED e 


POCO E EES O EO UE E OEE ROCCE ESETEESERE SEE E EOS EO HODES USSD EOOCEHUREH OOOO EN EEED 


16 
16 


20 


1313 
1314 
O1315 
01316 
01317 
01318 


co 


01319 


01365 
01366 


01368 
01369 
01370 
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002211 006017 A 2648 LOAE NC8032 PICK UP LAST OP-CODE 16 01371 
002212 002176 
002213 144016 2649 SUB NCBL4O COMPARE TO WRITE OP-CODE 16 01372 
o0e214 001016 2650 JANZ NCB04O IF NOT WRITE, SKIP TO RETURN 16 01373 
002215 002227 
00e216 006030 2651 LOX! LINE POINT TO LINE BUFFER 16 01374 


OO2P17 DOPHPB 
a) 


OTs "eh? NEGO SH LDA NC BLO PICK UP A DUANK 18 01975 
“POUNNOUO A CO5S STA OX STORE THO UL ANKSS Ie OL ie 
De te VOSINS A eb54 INCR O45 RUM xX AND COPY 100A In ores 
00eees 006140 e655 SUBI LNEND COMPARE AGAINST END OF BUFFER Io O1S7B 
odeee4 002576 
002225 001004 2656 JAN NC8038 IF INSIDE, CONTINUE LOOP 16 01379 


DPD>>>>DyHDPrpvy 


002226 O0e22e0 


PEED teeseneesencscesscesesssesssecesesecsssereeessssssssssssesesesssssesses 16 (1381 


2659 * RETURN SEQUENCE * 16 01382 

PEED HPHHeeeennseerereseeesseseessseseeesusserensssressssnsssscsesasssseenes 16 01383 

002227 001000 A 2661 NC8040 JMP C1) RETURN TO THE CALLER 16 01384 
002230 000000 A 

002230 R 2662 NC8048 EQU 4 SAVE AREA FOR P REG 16 01385 

2664 waeee 16 01387 

2665 16 01388 

2666 16 01389 

002231 010001 A 2667 NCB8120 IOMAC WAIT,ASCI1,READOP, INLUN 16 01390 

002232 010401 A 2668 NCB140 IOMAC  WAIT,ASCI1,WRITOP,OUTLUN 16 01391 

002233 000050 A 2669 NC8I60 DATA LNEND-L INE FIXED-LENGTH READ 16 01392 

002234 000000 A 2670 NC8180 DATA 0 VARIABLE RECORD ADDRESS 16 01393 

002235 000000 A 2671 DATA t) 16 01394 

002236 120240 A 2672 NC8190 DATA ae DOUBLE BLANK CONSTANT 16 01395 

2673 EJEC 16 01396 

PE7Y SHRP OO HOE e HOR C OOOOH E HESS EO EER ONES SHEER ORES ES ESSE ESESEREEESEEESENOSS 16 11397 

2675 * * 16 01398 

2676 * TITLE - GENERAL WORD MOVER ROUTINE * 16 01399 

2677 * 16 01400 

2678 * PURPOSE - * 16 01401 

2679 THIS ROUTINE IS USED TO MOVE WORDS AROUND. IT'S i6 01402 

2680 PRIMARY USE IS FOR SETTING UP THE VARIOUS MESSAGE FIELDS. 01403 

2681 * * 16 01404 

2682 * CALLING SEQUENCE - * 16 01405 

2683 * CALL MOVER, FROM, TO,COUNT * 16 01406 

2684 * * 16 01407 

2685 * ENTRANCE PARAMETERS - * 16 01408 

2686 * FROM SOURCE ADORESS * 16 01409 

2687 * TO DESTINATION ADDRESS * 16 O1410 

2688 * COUNT NUMBER OF WORDS TO MOVE * 16 O14it 

2689 * * 16 01412 

2EQD POPenereenseeeerererennesensseneeunevessseeuesssesasesaeensnsesessneers 16 OIUIS 

2692 Seeereeseceerevecevevoessseeosesees® 16 01415 


2693 * 16 01416 
2694 *© 16 O14M17 
002237 000000 A 2695 MOVER ENTR ENTRY CELL 16 01418 
002240 006037 A 2696 LOXE MOVER PICK UP PARAMETER LIST ADDRESS 16 01419 
002241 002237 R 
002242 025000 A 2697 LOB 0,x PICK UP FROM ADDRESS 16 01420 
002243 015001 A 2698 LDA 1,X PICK UP TO ADDRESS 16 014e1 
o02244 054006 A 2699 STA NCB410 SAVE FOR X REG 16 01422 
002245 015002 A 2700 LDA 2.x PICK UP WORD COUNT 16 01423 
002246 054022 A 2701 STA NC8500 SAVE IN COUNTER CELL 16 01424 
002247 005041 A 2702 TXA CoPY PARM LIST TO A REG 16 01425 
002250 120464 A 2703 A00 THREE BUMP OVER PARM LIST 16 01426 
002251 054016 A 2704 STA NCB458 SAVE AS RETURN ADDRESS 16 01427 
002252 006030 A 2705 LOX! tt) PICK UP TO ADDRESS 16 01428 
002253 000000 A 
002253 R 2706 NC8410 EQU ani] POINTER TO TEMPORARY CELL 16 01429 
01430 
01431 
01432 
01433 
002254 014014 A 2711 NCB420 LDA NC8500 PICK UP CURRENT COUNTER CELL 16 01434 
002255 005311 A e712 DAR DECREMENT BY ONE 16 01435 
002256 054012 A 2713 STA NC8500 RESTORE IN COUNTER CELL 16 01436 
002257 001004 A 2714 JAN NC8450 SKIP OUT IF COUNT IS SATISFIED 16 01437 
002260 002267 R 
002261 016000 A 2715 LOA 0,8 LOAD A WORD 16 01438 
002262 055000 A 2716 STA 0.x MOVE THE WORD 16 01439 
002263 005122 A 2717 1BR BUMP SOURCE POINTER 16 01440 
002264 005144 A 2718 IxXR BUMP DESTINATION POINTER 16 O1441 
002265 001000 A 2719 JMP NCB420 CONTINUE MOVING 16 01442 
02266 002254 R 


eeeeerececcerecesosevesesseseceesese® 16 O14U4Y 


* 16 0144S 

2723 eesees eeeeseecoeevoees 16 01446 

002267 001000 A 2724 NC8450 JMP 0 RETURN TO THE CALLE! 16 01447 
002270 000000 A 

002270 R 2725 NC8458 EQU Lo | SAVE AREA FOR RETURN ADDRESS 16 01448 

2727 stesnscenecsecesonsese e 16 01450 

2728 * CONSTANTS AND WORK AREAS FOR MOVER 16 0145) 

2T2G eheceeerceccssecesesseseesenereneeeseensees 16 01452 

002271 000000 A 2730 NC8500 DATA. 0 AREA FOR WORD COUNTER 16 01453 


e731 EVEC 16 01454 


VTAM Al 


002272 
002273 
002274 
002275 
002276 


002277 
002300 
002301 
002302 
002303 
002304 
002305 
002306 
002307 
002310 
002311 
o0e31e 
002313 
002314 
002315 
002316 
002317 


002320 
002321 
002322 
002323 


002324 
002325 
002326 
002327 
002330 
002331 
002332 


002333 
002334 
002335 
002336 
002337 
002340 


000000 
010421 
054140 
006037 
000000 


025000 
001020 
002312 
016015 
144140 
001016 
002312 
016016 
144135 
001010 
002321 
005144 
o44iel 
014120 
140463 
001016 
002277 


Os4114 
OmM1i3s 
001000 
1o2e72 


000000 
054065 
001010 
002411 
144063 
001002 
002344 


020400 
016000 
144055, 
001004 
ooe411 
010400 
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. . 
* TITLE - FIND LOGICAL TERMINAL NUMBER ROUTINE a 
. . 
* PURPOSE - . 
. THIS ROUTINE MAPS A TUID TO A LOGICAL TERMINAL s 
. NUMBER. THIS NUMBER 1S REQUIRED IN ALL VISIOC REQUESTS . 
* FOR TERMINALS. . 
. . 
* FUNCTION - . 
. THE LOGICAL TERMINAL TABLE, LTT, IS SEARCHED FOR A . 
* NON-ZERO ENTRY. THIS ENTRY POINTS TO A TCD. IF THE . 
*  TUID IN THE TCD MATCHES THE REQUESTED TUIO, CELL LTTN IS SET TO * 
. THE ORDINAL OF THE MATCHING LTT ENTRY. IF NO MATCH IS FOUND, ° 
* THEN THE TUID IS NOT CURRENTLY OPEN AND ZERO IS RETURNED IN CELL * 
TIN. . 
. . . 
* CALLING SEQUENCE - . 
* CALL GETLIN . 
. . 
* ENTRANCE PARAMETERS - e 
* CELLS PTUID MUST CONTAIN THE TUID TO BE MAPPED. . 
. . 
POPTTTTTTTTTTITITTTTTI TITTLE TTT TTC Ter) 
PPPESTTITITITITITTTTTTTTTTTTTrrrTiTTTire tric ieee i irri iii er 
* ENTRY POINT, SAVE REGS AND INITIALIZE FOR THE LOOP . 
ceceeeeceeenecceneceeeeeseseeteeseeSeneeedeeeeeueneeeeeenesesenecoesees 
EXT VTSLTT ADDRESS OF LTT 
GETLTN ENTR ENTRY CELL 
LOA ONE PICK UP A ONE 
STA LTTN STORE IN RESULT CELL 
LOXE =: VTSLTT PICK UP POINTER TO LTT 
EVEC 
PITITITITITITITEITTT ITT TeTr rrr rr re rere 
. NOW CHECK THIS LTT ENTRY ° 
PPPTTTTT ETI TTTTTTTTieririririirirrreeererTe Trier erie 
NC8610 LOB 0.x PICK UP LTT ENTRY 
JBZ NCB630 IGNORE IF ZERO 
LOA TC1D1,8 PICK UP FIRST THO CHARACTERS OF TUID 
SUB PTUID COMPARE TO THE REQUESTED TUID 
YANZ —-NCBB30 IF NOT EQUAL, IGNORE THIS ENTRY 
LOA Tc102,8 PICK UP SECOND TWO CHARACTERS OF TUID 
SUB PTUID+I COMPARE TO REQUESTED TUID 
JAZ NCBE4O IF EQUAL, WE HAVE A MATCH 
NC8630 IXR ELSE BUMP LTT POINTER 
INR LTTN BUMP LTT NUMBER 
LOA LTTN PICK UP CURRENT VALUE 
SUB RH COMPARE TO FINAL VALUE 
VANZ —-NC8610 IF NOT EQUAL, CONTINUE SEARCH 
PERSE REDE EET E OOOO OURS DOSE OOOREEEE SEEDER ESOSEETOTOSEREDOSEDEEOS ODD EDS 


. HERE MATCH WAS NOT FOUND, STORE ZERO IN LTTN, THEN RETURN . 
. . 
LTIN Ss 
NCBEYO LDA LTTN PICK UP RESULT VALUE 
JMP® — GETLTN RETURN TO THE CALLER 
sees sees 
. . 
* TITLE - FIND CONTROLLER TABLE ROUTINE : 
. 
* SE - . 
* THIS ROUTINE LOCATES THE CONTROLLER TABLE, GIVEN THE UNIT NUMBER. * 
. . 
* CALLING SEQUENCE - . 
. LOA LUN * 
. CALL = GETCTA * 
. . 
* ENTRANCE PARAMETERS - * 
* REG A CONTAINS THE VORTEX LOGICAL UNIT NUMBER . 
REG A RETURNS NEGATIVE IF UNABLE TO LOCATE CONTROLLER TABLE . 
. 
. eee eee or 
GETCTA ENTR ENTRY CELL 
STA C9100 SAVE A REG (REQUESTED LUN) 
JAZ Ncg040 SKIP IF REG A INITIALLY ZERO 
SUB ne9120 IS LUN IN FIRST BLOCK? 
vaAP NCS010 NO, SKIP TO TRY SECOND BLOCK 
PIITITIIITIITIIIITTTiTiTiTitiiiirrittieiTtitttreee eee 
. REQUESTED LUN IS IN RANGE 1:100 . 
PPPPITTYItrrrerrrrrerrriryiiriiertiiirrirerter trite Tee tee 
Lo VSLUT! POINT TO THE FIRST BLOCK 
LOA 0.8 PICK UP NUMBER OF LUN'S IN THIS BLOCK 
SUB NC9100 COMPARE TO REQUESTED LUN 
JAN NC9040 IF OUTSIDE, LUN CANNOT BE FOUND 
LDA vSLUT! IF INSIDE, RESTORE BLOCK POINTER 
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002341 124051 A 2820 ADD NC9100 ADD IN DISPLACEMENT 16 01543 
002342 001000 A 2821 JMP NCS9030 SKIP TO LOCATE CONTROLLER TABLE 16 01544 
002343 002373 R 


28e3 

2824 

2825 
002344 054046 A 2826 NC9010 STA NCS100 SAVE PREVIOUS REMAINDER 16 01549 
002345 144047 A 2827 suB NC9130 REMOVE RANGE OF SECOND BLOCK 16 01550 
002346 001002 A 2628 JAP Ncg020 TOO LARGE, SKIP TO TRY LAST BLOCK 16 01551 
002347 002362 R 
002350 02040! A 2829 LOB VSLUT2 POINT TO THE SECOND BLOCK 16 01552 
002351 016000 A 2830 LDA 0,8 PICK UP NUMBER OF LUN'S IN THIS BLOCK 16 01553 
002352 144040 A 2831 SUB NC9100 COMPARE TO REQUESTED LUN 16 01554 
002353 001004 A 2832 JAN NCSO4O IF OUTSIDE, LUN CANNOT BE FOUND 16 01555 
002354 002411 R 
002355 01040! A 2833 LDA V$LUT2 IF INSIDE, RESTORE BLOCK POINTER 16 01556 
002356 124034 A 2834 ADD NCS100 AOD IN DISPLACEMENT 16 01557 
002357 005111 A 2635 TAR ADJUST DOWN ONE SLOT 16 01556 
002360 001000 A 2836 IMP NC39030 SKIP TO LOCATE CONTROLLER TABLE 16 01559 
002361 002373 R 


002362 054030 A SAVE PREVIOUS REMAINDER 
002363 020402 A e842 LOB V$LUT3 POINT TO LAST BLOCK 
002364 016000 A 2843 LDA 0,8 PICK UP NUMBER OF LUN'S IN THIS BLOCK 16 01566 
002365 144025 A 2844 SUB NC9100 COMPARE TO REQUESTED LUN 16 01567 
002366 001004 A 2845 JAN NCS040 IF OUTSIDE, LUN CANNOT BE FOUND 16 01568 
002367 002411 R 
002370 010402 A 2846 LOA V$LUT3, IF INSIDE, RESTORE BLOCK POINTER 16 01569 
002371 124021 A 2647 AOD NC9100 AOD IN DISPLACEMENT 16 01570 
002372 005111 A 2848 TAR ADJUST DOWN ONE SLOT 16 01571 
2850 * eee enee 16 01573 
28s! 16 01574 
e852 16 01575 
002373 005012 A 2853 NC9030 TAB COPY UNIT SLOT POINTER TO B REG 16 01576 
002374 016000 A 2854 LDA 0.8 PICK UP THE ENTRY 16 01577 
002375 150463 A 2855 ANA RHW AND OUT LEFT BYTE 16 01578 
002376 005311 A 2856 DAR DECREMENT FOR ONES ORIGIN 16 01579 
002377 054013 A 2857 STA NCS100 STOW TEMPORARILY 16 01580 
002400 004201 A 2858 ASLA 1 TIMES THO 16 01561 
002401 124011 A 2859 ADD NC9100 TIMES THREE 16 01582 
002402 120355 A e860 ADD VS$OSTB ADD IN OST START POINTER 16 01583 
002403 005012 A 2861 TAB COPY OST ENTRY ADDRESS TO B REG 16 01584 
002404 016002 A 2862 LDA OSCTAD,B PICK UP CONTROLLER TABLE ORDINAL 16 01585 
2863 ANAM 6 MASK OUT ALL BUT LAST SIX BITS 16 01586 
002405 150474 A 
002406 120360 A 2864 ADD VSCTAD ADD IN START OF CONTROLLER VECTOR TABLE 16 01587 
002407 005012 A 2865 TAB COPY SLOT ADDRESS TO B REG 16 01588 
002410 016000 A 2866 LDA 0.8 PICK UP ADDRESS OF CONTROLLER TABLE 16 01589 


ene eeeee 


2869 *¢ NOW RETURN TO THE CALLER 
270 teeeesensecenseceeneceasecasseseeneeeneenseusenscansceesesenseeseresees 16 01593 
002411 R 2871 NCSO4O0 EQu » EXIT EQUATE 16 01594 
002411 001000 A e672 JMP® GETCTA RETURN TO THE CALLER 16 01595 


002412 102324 R 


Fi-y 


2875 * CONSTANTS AND WORKING STORAGE FOR CONTROLLER FINDER * 16 01598 


2876 tteeereceserenees seecesensseesesseees 16 01599 


002413 000000 A 2877 NC9Q100 DATA OO. 16 01600 

002414 000145 A 2878 NC9120 DATA 101 NUMBER OF LUN'S IN FIRST BLOCK 16 01601 

002415 000117 A 2879 NC9130 DATA = 79. NUMBER OF LUN'S IN SECOND BLOCK PLUS ONE 16 01602 

2880 VEC 16 01603 

eee * 16 01604 

2e82 © * 16 01605 

2883 * TITLE - CHECK FOR COMMA DELIMITER * 16 01606 

2e84 * * 16 01607 

2885 * PURPOSE - * 16 01608 

2886 * THIS ROUTINE INSURES THAT THE CURRENT CHARACTER IS A COMMA. * 16 01609 

2887 * IF IT IS NOT, CONTROL IS PASSED TO SYNERR. IF IT IS A COMMA, * 16 01610 

2888 * CONTROL IS RETURNED TO THE CALLER. * 16 01611 

2889 * * 16 01612 

2890 * CALLING SEQUENCE - * 16 01613 

2891 © CALL = CHKCOM * 16 01614 

2e92 « * 16 01615 

2893 * ENTRANCE PARAMETERS - * 16 01616 

2894 * NONE * 16 01617 

2895 « * 16 01618 

eee * 16 01619 

002416 000000 A 2897 CHKCOM ENTR ENTRY CELL 16 01620 

002417 014034 A 2898 LOA CHAR PICK UP THE CURRENT CHARACTER 16 01621 

002420 144036 A 2899 sus COMMA COMPARE AGAINST A COMMA 16 01622 

002421 001016 A 2900 JANZ SYNERR IF NOT EQUAL, ISSUE MESSAGE 16 01623 
002422 000133 R 

002423 001000 A 2901 vMP® —— CHKCOM ELSE RETURN TO THE CALLER 16 01624 
002424 102416 R 

2902 EVEC 16 01625 

2GOZ Ceeeserecccccereceeseeeseseesseeesesenerercrsssececnssccsssoooeseseeer® 16 01626 

2904 « * 16 01627 


2905 * TITLE - CHECK FOR PERIOD DELIMITER * 16 01628 
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o024e5 
002426 
002427 
002430 
002431 
002432 
002433 


002434 
002435 
002436 
002437 
002440 
o02444 
002446 
002447 
002450 
002451 
002452 
002453 
002454 
002455 


002456 
002457 
002460 
002461 
002462 
002463 
002464 


002465 
002466 


002467 
002470 
02471 


o02e472 
002473 


002474 
002475 


002476 
002477 


002500 
002501 


002502 
002503 


oo0000 
014025 
144026 
001010 
000000 
001000 
102425 


000001 
000001 
000152 
000000 
000001 
000005 
000007 
oo000es 
ooo004 
000000 
000000 
000001 
000002 
000306 
oo0040 


000000 
000000 
ooocco 
ooocco 


000004 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
oo004e1 
oo04e2 
O00464 
000423 
000465 
00466 
000256 
000254 
000275 
000260 
000301 
000240 
000032 
000471 
002124 
002136 


1497303 
146652 
125240 
000003 
146311 
147305 
oo0002 
152325 
144704 
oo0002 
152720 
120240 
oo000e 
142317 
153716 
000002 
147720 
142716 
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. . 
* PURPOSE - . 
. THIS ROUTINE TESTS THE CURRENT CHARACTERS FOR A PERIOD. * 
* IF ONE IS DETECTED, THE CURRENT DIRECTIVE IS TERMINATED * 
* BY RETURNING CONTROL TO NETCON. ELSE CONTROL IS RETURNED . 
* TO THE CALLER. . 
. . 
* CALLING SEQUENCE - . 
. CALL CHKPER . 
. . 
* ENTRANCE PARAMETERS - * 
* NONE . 
. ° 
. cee eeeeceeecccecneeseeeeeeeecenseeeseeeeneceesneseesees 
cl ENTRY CELL 

CHAR PICK UP THE CURRENT CHARACTER 

PERIOD COMPARE TO A PERIOD 

NETCON IF EQUAL, RETURN TO TOP 

CHKPER ELSE, RETURN TO THE CALLER 

EVEC 

PPIeTTTITITIrrTirtirrirrririiirrtrt itt 
. EQUATES FOR NETWORK CONTROL . 


PROPS E EEE ROSES REET EEE ESOEOSEOTESESES ESET ESOS ERED EEE E SED EOOSTTEEHETEEED 


INLUN EQU 1 INPUT FROM OC UNIT 
QUTLUN EQU 1 OUTPUT TO OC UNIT 


RMDLUN EQU 106 UNIT FOR FOREGROUND LIBRARY 
READOP EQU oO OP-CODE FOR READ 
WRITOP EQU 1 OP-CODE FOR WRITE 
FUNCOP EQU 5 OP-CODE FOR FUNC 
CLOSOP EQU 7 OP-CODE FOR CLOSE 
KILLLN EQU 21 FUNC CODE TO FLUSH LINE 
KILLTU EQU 4 FUNC CODE TO FLUSH TERMINAL 
WAIT QU 0 WAIT OPERAND ON 1/0 MACROS 
BIN EQu 0 MODE OF RMD TRANSFERS 
ASCII EQU 1 MODE OF TRANSFERS TO OC DEVICE 
DIRECT EQU 2 MODE OF RMD ACCESS 
FLKEY EQU ak KEY FOR FOREGROUND LIBRARY 
BTAOFF EQU 040 EQUATE FOR ‘BT’ INSTRUCTION 
EVEC 
PITTITITITITITITITITITITITTITTTTTTTTTTTiTtrTeTi rte 
. CONSTANTS AND WORK AREAS FOR NETWORK CONTROL . 
POUTTTITITELTTITOTTTTITiiiTTTTTeeerierririiiire rire retiree ity) 
LSDN DATA 0 CURRENT LSO NUMBER 
LTTN DATA 0 CURRENT LOGICAL TERMINAL NUMBER 
CCHN DATA 0 CURRENT CCM NUMBER 
CCHCAD DATA =O CURRENT CCM CONTROLLER TABLE 
TUID BSS 4 UNPACKED CURRENT TUID 
PTUID BSS 2 PACKED CURRENT TUID 
DATA —KILLTU FUNC CODE TO FLUSH A TERMINAL 
SECTN DATA 0 CURRENT SECTOR NUMBER 
DISP DATA 0 CURRENT DISPLACEMENT INTO SECTOR BUFFER 
BLKPTR DATA 0 POINTER TO CURRENT BLOCK IN BUFFER 
FCBPTR DATA 0. CURRENT FCB POINTER 
COLPTR DATA =O ADDRESS OF NEXT BYTE IN DIRECTIVE BUFFER 
CHAR DATA 0 CURRENT CHARACTER 
ERRTYP DATA I CURRENT ERROR CODE 


ERROR CODE EQUATE 


2 
3 
z 
8 
a 


UOFLNE EQU THO ERROR CODE EQUATE 
UDFTID EQU THREE ERROR CODE EQUATE 
1OEOFL EQU ‘OUR ERROR CODE EQUATE 
1OEOFT EQU FIVE ERROR CODE EQUATE 


ERROR CODE EQUATE 
CONSTANT PERIOO 
CONSTANT COMMA 


EQUAL DATA 0275 CONSTANT EQUAL SIGN 
co DATA 0260 CONSTANT ZERO 
CA DATA 0301 CONSTANT A 


CONSTANT BLANK 

RANGE OF ALPHABET 

RANGE OF NUMERICS 
POINTER CONSTANT TO FCB 
POINTER CONSTANT TO FCB 


Pes eeensereeeeenesessecseseees 
. 
eeenee seeeee 


OPENING STATEMENT 
LNET EQU *-CNET LENGTH OF MESSAGE 
CLNE DATA *LINE* CONSTANT 
LLNE EQU *#-CLNE LENGTH OF CONSTANT 
CTID DATA ‘TUID' CONSTANT 
LTIO = EQU *-CTID LENGTH OF CONSTANT 
cuP DATA ‘ae CONSTANT 
Lup EQu *-CUP LENGTH OF MESSAGE 
CDWN DATA *DOWN’ CONSTANT 
LOWN EQU *-CDWN LENGTH OF CONSTANT 
COPN DATA ‘OPEN ° CONSTANT 
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002504 


002505 
002506 
002507 


002510 
002511 
002512 
002513 
02514 
002515 
002516 


002517 
002520 
002521 
ao02522 


002523 


002524 
002525 


002526 
002527 
002530 
002531 
002532 
002533 
002534 
002535 
002536 
002537 
002540 
002541 
002542 
002543 
002544 
002545 
002546 
002547 
002550 
002551 
002552 
002553 
002554 
002555 
002556 
002557 
002560 
o0e561 
002562 
‘002563 
002564 
002565 
002566 
002567 
002570 
002571 
00e572 
002573 


002574 
002575 


002576 
002766 


120240 
000003 
141714 
147723 
142704 
000003 
151305 
142311 
151305 
141724 
142704 
120324 
147640 
000007 
151305 
151724 
147722 
142704 
000004 
147303 


120324 
120320 
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120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 
120240 


120240 
120240 
002576 
002527 
002532 
002535 
002536 
002540 
002543 
002544 


DBVDBVIVVHS HY SHH y yy yr ry yyy yryry yr yy yyy yyrryr>>yyr>ry>rrrr> 


003036 R 
003036 R 
000000 R 


ENTRY NAMES 
EXTERNAL NAMES 


oo1ee) 
002174 


€ CS52LLT 
€ vsioc 


SYMBOLS 


000044 
000001 
000015 
000003 
000007 
000000 
o004e1 
000464 
000474 
000453 
000457 
000445 


PPP >rrrrr>rr 
o 
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2993 LOPN 
egs4 CCLS 


e995 LCLS 
e996 CRED 


2997 LRED 
2998 CRES 


2999 LRES 


3000 CNC 


3001 CT 
3002 CP 


3003 
3004 
3005 
3006 


3007 LINE 


3008 


€Qu 
DATA 


€Qu 
DATA 


EQu 
DATA 


EQu 
DATA 


DATA 
DATA 


EJEC 


DATA 


3009 LNEND EQU 


3010 FLOI 
3011 FLOe 
3012 FLO3 
3013 FLOW 
3014 FLOS 
3015 FLD6 
3016 FLO? 


3017 SECTOR BSS 
3018 BUF 
3019 ENDBUF EQU 
3020 NETEND EQU 


3021 


001455 
002203 


000001 
oooole 
000016 
000004 
000010 
000000 
000472 
000473 
000476 
000454 
000460 
000446 
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CCSMET 
V$10ST 


NCH ( 139) 
*-COPN LENGTH OF CONSTANT 
"CLOSED" CONSTANT 
*-CCLS LENGTH OF CONSTANT 
“REDIRECTED TO ' 
*-CRED LENGTH OF MESSAGE 
"RESTORED' 
*-CRES LENGTH OF CONSTANT 
*NC* MESSAGE CONSTANT 
. Fe MESSAGE CONSTANT 


LINE+1 MESSAGE FIELD EQUATE 
LINE+4 MESSAGE FIELO EQUATE 
LINE+7 MESSAGE FIELD EQUATE 
LINE+8 MESSAGE FIELD EQUATE 
LINE+10 MESSAGE FIELD EQUATE 
LINE+13 MESSAGE FIELO EQUATE 
LINE+14 MESSAGE FIELD EQUATE 
120 RMD SECTOR BUFFER 
40 DIRECTIVE BUFFER 
. POINT TO THE END OF THE BUFFER 
fe LAST WORD OF NETCON 
NETCON TERMINATE THE ASSEMBLY 

000642 E TCSTCD 00241 E VSEXEC 

002276 E VTSLTT 

oo0002 A B 000000 A BO 

000013 A B11 000014 A B12 

000017 A B15 oo0002 A B2 

000005 A BS 000006 A 

000011 A Bo 00421 A BAOSYN 

002463 R BLANK 002451 R BLKPTR 

000475 A BM177 000477 A BM1777 

000463 A BM377 000467 A BM7 

000441 A BRO 00442 A BRI 

000455 A BRI2 000456 A BRIS 

000443 A BRe 000444 A BRI 

000447 A BRE 000450 A BR7 


PAGE 


16 
16 


16 
16 


16 


25 


o1716 
01717 


o1718 
01719 


01720 
01721 


o17ee 
01723 


01724 
01725 


01726 
01727 
01728 
o17e9 
01730 


01731 
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000451 
000433 
000437 
oo04e5 
000431 
002461 
001727 
002436 
002425 
002523 


ooes0e 
002517 
ooo00! 

000011 

000000 
000020 
000014 
000000 
000000 
000020 
000005 
000000 
000010 
000013 
002464 
002124 
000002 
O00444 
000017 
900000 
000020 
000016 
000000 
co00e0 
000546 
000002 
oo0002 
o004e4 
000232 
000240 
002527 
002540 
000423 
000001 

000025 
000013 
000001 

000006 
000015 
000001 

000006 
000011 


000001 
000001 
000017 
000014 
000002 
000000 
000000 
000017 
000017 
000004 
000000 
000001 
oo0002 
000002 
000007 
ooo! 
000014 
000010 
000010 
oo001e 
000017 
000000 
000001 
oooo14 
000010 
oo0002 
000002 
000000 
000003 
000004 
000000 
000020 
000001 
001125 
000020 
000016 
000000 
000002 
000020 
000000 
000002 
000145 


000016 
000076 
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LCCWSZ 
LCIBA 

LCIBFB 
LCIBLZ 
Lcice 

LCIKEB 
LCLCeB 
LCLTBB 
LCOBAZ 
LCOBL 

LCOKEB 
LCRCCZ 


NCO4IO 
NCO520 


000452 
000434 
o00440 
000426 
000432 
001221 
001455 
002500 
002472 
002467 


ooo000 
002524 
000001 
000000 
000020 
oo0012 
000010 
000010 
000017 
000002 
000000 
000020 
000010 
000000 
000001 
002465 
000747 
00024 
000000 
000020 
000023 
goo0co 
000020 
000015 
oo0002 
000001 
goo0002 
000147 
003036 
002452 
002532 
002543 
000005 
000423 
000004 
000001 
000003 
000014 
000001 
000006 
oo001e 
00001 


000006 
000000 
000001 

oo0c0e 
ooo00e 
000004 
oo000e0 
000001 

ooo004 
ooo000 
oooo04 
000000 
000462 
002576 
000004 
000017 
000013 
000010 
000017 
000000 
000017 
000020 
000014 
000016 
000006 
000016 
000000 
000020 
000001 

000000 
oo00020 
001331 

oooo00 
001243 
000007 
000013 
000020 
000017 
000000 
000010 
002237 
000245 


000032 
000116 
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COTADI 
ct 


CTADN 
CTBICB 
CTOSTZ 
CTFCB 
CTFRCB 
CTFREZ 
CTIOBZ 
CTOPM 
CTRCNB 
CTROBZ 
CTSTA 
CTWOSB 
OCBUFF 
OFLPTR 
DISCLK 
DMCWA 
DMFPAB 
DMLCAZ 
DMPTA 
DMRPAB 
DMSTAZ 
DMTPA 
OSCTAD 
DSNAME 
OSREWD 
ENACLK 
ENDBUF 
FCBPTR 
FLO2 
FLO6 
FUNCOP 
TOEOFL 
KILLTU 
LCABNZ 
LCCRC 
LCCWBB 
LCCWCZ 
LCCWI 
LCCWPB 
LCCWRZ 


LCCHT 
LCIBAB 
LCIBFZ 
LCICcl 
Lcicea 
LCIKEZ 
LCLCBZ 
LCLTBZ 
LCOBF 
LCOBLB 
LCOKEZ 
LCSMB 
LHW 
LNEND 
LRES 
LSASC 
LSASYB 
Cscciz 
LSCRC 
LSCTAB 
LSOSFB 
LSDSTZ 
LSLSP 
LSMODB 
LSNTOZ 
LSPLA 
LSRCAB 
LSREMZ 
LSRRT 
LSRTOB 
LSSRSZ 


NCOH20 
NCO530 


ooo4e! 
000435 
o004e3 
o004e7 
000040 
000471 
002505 
002454 
000047 
002453 


002525 
000000 
000000 
000020 
000006 
000000 
oo0010 
002474 
000007 
000000 
000010 
000005 
ooo000 
oo0020 
ooo00e 
002136 
000745 
000000 
000020 
oo00022 
000000 
000020 
000025 
000000 
000000 
000000 
000000 
000645 
002460 
001737 
002535 
002544 
002324 
000465 
000300 
000003 
900014 
000001 
000006 
000016 
000001 
000006 


000010 
000017 
000000 
000010 
000010 
000050 


000345 


000060 
000127 


DD HPP HyO KH yH Er yy rr yr rrr EES SEH SHE OOP USE Sh SEE EEE EHS HHP SHEESH OO UVIDUVES >> >>> rr rr > rer Uhr hr re rUShy oor oD VE DDYErrry 


000422 
000436 
oo04ey 
000430 
002766 
002462 
002437 
002416 
000007 
002457 


002510 
000017 
000020 
000003 
000000 
000020 
000014 
000000 
000000 
000020 
000004 
000010 
000020 
002476 
000000 
002466 
002450 
000020 
000021 
000000 
000020 
000020 
000000 
000020 
000000 
000002 
000002 
000244 
002455 
000465 
002536 
000306 
oo0ee72 
002162 
000003 
o0001e 
000003 
000006 
000013 
000001 
000006 
000017 


000001 
000000 
000000 
000010 
000003 
000006 
000007 
000000 
000001 
000007 
000017 
000001 
000761 
000003 
000015 
000001 
000015 
000000 
000003 
002434 
000013 
000016 
000011 
000020 
000014 
000010 
000003 
000010 
o000e0 
900005 
900000 
000017 
000020 
000000 
000020 
000010 
000011 
000001 
000017 
002435 
000045 
000420 


000062 
000132 
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VTAM AL 


000161 

000174 
000256 
000347 
000455 
000513 
000561 

000665 
000704 
000754 
000777 
001020 
oo1lIs 
001206 
001325 
OO1417 
001425 
001436 
000431 

001600 
001615 
001672 
001761 

002016 
002056 
002073 
002116 
ooe172e 
o02ee7 
002233 
002254 
002277 
002362 
002414 
000000 
o004el 

000001 

ooo00e 
oo0014 
000010 


POSH HS DUVOVV VU VVUVODVVOHS VD VVVVOVVDVTOVVDVVVD 


000001 
000010 
ooo004 
002456 
000043 
000040 
000001 
000002 
000010 
000003 
000010 
000001 
000004 
000000 
000016 
000014 
000010 
000001 
000003 
000000 
000010 
000004 
000000 
000463 
000003 
000466 
000011 
000015 
000022 
000004 
000010 
000012 
000016 
000004 
000010 
000013 
ooonny 
000000 
000001 
000005 
000000 
000020 


000015 
000000 
000001 
000005 
000000 
000010 
000013 
000000 
000003 
900006 
000000 
000001 
000005 
000016 
000020 


PPS P PEE EEE EE r> HH SPP EH EE OE E> E > EEE E>E EEE EE EEE HOE E> >>> HES PO US >> 


NCO600 
NCO630 
NC1220 
NC2410 
Nce44e 
NC2820 
NC 3220 
NC 3630 
NC374O 
NC4O4O 
NC4420 
NC4610 
NC464O 
NC4830 
NC5240 
NC6020 
NC6040 
NC6400 
NC6520 
NC6620 
NC6810 
NC6850 
NC72e0 
NC7262 
NC7640 
NC7654 
NC7672 
NC8020 
NC8040 


PCECHB 
PCLLNZ 


PCPCH 
PCSWLB 
PCTYPZ 
PERIOD 
PIMY 
PIM 
PSABNZ 
PSBADT 
PSCC1Z 
PSCRC 
PSDEFB 
PSOSFZ 
PSEND 
PSLSP 
PSMODB 
PSPARB 
PSPLAZ 
PSTERZ 
PSYNC 


TCDTOZ 


TC1Ol 
Tc102B8 
TCLOFZ 
TCNOD 
TCNTOB 
TCPCHZ 
TCRBF 
TCRCAB 
TCRMDZ 
TCRRS 
TCSTOB 
TCSWLZ 
TCTYP 
TCWBCB 
TCWCAZ 


000171 

000232 
o00262 
000355 
000471 

000517 
000565 
000674 
000705 
000745 
001003 
001057 
oo11e4 
001237 
001352 
001420 
001431 

001462 
001545 
001603 
001635 
001716 
002011 

002017 
002062 
002074 
oo2iel 

002173 
002230 
002234 
002267 
002312 
002373 
002415 
003036 
000001 

000000 
000014 

000001 

000002 


000000 
000001 

000001 

000040 
000040 
000200 
000000 
000000 
000001 

000012 
000001 

000002 
000002 
000000 
000002 
000002 
000001 

000000 
000016 
000010 
ooe44y 
000060 
000347 
000152 
002447 
000133 
000003 
000017 
0000e3 
000005 
000006 
000013 
000017 
000005 
000011 

ooo01e 
000011 

000010 
000002 
000014 
00020 
000004 


000000 
000020 
000003 
000004 
000004 
000004 
000000 
000020 
000001 
000006 
000020 
000000 
000010 
900001 
000006 
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NCO602 
NCO634 
NC1600 
NC2420 
NC2500 
NC2830 
NC3600 
NC 3640 
NC3750 
NC4H110 
NC4430 
NC4620 
NC4700 
NC4Y84O 
NC5700 
NC60e2 
NC6O44 
NC6420 
NC6530 
NC6700 
NC6820 
NC6860 
NC7250 
NC7320 
NC7642 
NC7656 
NC7710 
NC8030 
NC8048 
NC8180 
NC8450 
NC8630 
NC9030 
NC9130 
NETEND 
OUTLUN 
PCCLN 

PCCTPB 
PCECHZ 
PCNTD 


PCPCHB 
PCSWLZ 
PCXMM 
PIMI 
PIMS 
POST 
PSASY 
PSBEG 
Pscce 
PSCRCB 
PSDEFZ 
PSDWN 
PSEPF 
PSLSPB 
PSMODZ 


TCIOIB 
Tc102z 
TCLLN 
TCNODB 
TCNTOZ 
TCRBC 
TCREFB 
TCRCAZ 
TCRQH 
TCRRSB 
TCSTOZ 
TCTCD 
TCTYPB 
TCWBCZ 
TCWMD 


000172 
000176 
000276 
000361 

000472 
000542 
000624 
000677 
000710 
000760 
001005 
001066 
000465 
oo1e4t 

001413 
001423 
001433 
001472 
000465 
001604 
001652 
001726 
002013 
002034 
002065 
002107 
002122 
002176 
002231 

002236 
002270 
002321 

002411 

000000 
000470 
000001 

000000 
oo0004 
000000 
000000 


000010 
oo000e 
oo00le 
000041 
000040 
000003 
000013 
000001 
000000 
000003 
000003 
000011 
000016 
000011 
000003 
000002 
00002 
000011 
000001 
000003 
000040 
ooo0e20 
000473 
000001 
002576 
000027 
000021 
000020 
oo00e4 
000030 
oo0000 
000014 
oo000e 
000006 
000001 
000000 
000001 
000004 
oo0000 
000004 
000014 
oo0014 


000020 
000006 
000010 
ooo004 
000004 
000017 
000020 
000006 
000000 
000003 
oooco4 
000000 
000004 
000011 
000003 


PPP rrr eer rere er PEE EE HEHE EEE HEHEHE EO US DE ES EEE EEE EOS rr P EEE Ere Oh KPO ESO UUVUVODVUVVDVUUESVODUDH> DDVVODVVUVDVD 


NCO604 
NCO64O 
NC1640 
NC2430 
NC2510 
NC2840 
NC3610 
NC 3650 
NC 3760 
NC4120 
NC444O 
NC4630 
NC4Y710 
NC4Y850 
NC6010 
NC6030 
NC6046 
NC6430 
NC654O 
NC6710 
NC6830 
NC6900 
NC7252 
NC7610 
NC7650 
NC7668 
NC7720 
NC8032 
NC8120 
NC8130 
NC8458 
NCBE4O 
NCS9040 
NCM 
NINE 
PCBSL 
PCCLNB 
PCCTPZ 
PCLLN 
PCNTDB 


PCPCHZ 
PCTYP 


000173 
000243 
000315 
000416 
000473 
000546 
000643 
000703 
00071) 
000767 
oo1011 
001106 
000431 
001314 
oo14t4 
oo14e4 
001435 
001476 
001560 
001605 
001665 
001747 
002014 
002047 
002070 
002110 
002123 
o02220 
002232 
002253 
002271 
002344 
002413 
000461 
001546 
000011 
000010 
000001 
000010 
000004 


000001 
000010 
oo0000e 
000042 
000040 
000015 
000001 
000010 
000010 
000002 
000017 
000001 
000001 
000000 
000000 
900000 
000017 
000002 
000004 
000000 
000000 
002020 
900002 
000000 
000467 
000026 
000014 
000016 
000002 
000007 
000001 
000015 
900003 
000007 
000025 
ooo64e 
000003 
000015 
000020 
o0001e 
000000 
000001 


000016 
000014 
000010 
000005 
000000 
000001 
000007 
000000 
000020 
000010 
000010 
00020 
000004 
000000 
000003 


PPP Pr H herr rrr eer HH KOH H MEH HHH HH rH EH HH DE > E> >> E> E> yr r rrr rrr ry HHH Or US VOVUVDUVDVVUVVVDUDUUVOY DUUVODVNVDDD 


NCM 


NCO620 
NC1210 
Nnc2000 
NC2440 
NC2810 
NC3210 
NC3620 
NC3720 
NC4O00 
NC4410 
NC4600 
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000006 
000012 
oo0002 
000017 
000020 
000003 
000007 
000010 
000001 

900000 
000020 
002440 
ooo42e 
000403 
000315 
000411 

000341 

000300 
000376 
000350 
002203 
000050 
000356 
000345 
oo00402 
000346 
000305 


000303 
000344 
000000 
000420 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
R 
A 
A 
A 
A 
A 
A 
A 
A 
(3 
A 
A 
A 
a 
A 
A 


A 
A 
A 
A 


0 ERRO! 


TCHRS 
TCXMMB 
TIDSP 
TIDWNB 
TINETZ 
TIODP 
TIOSCB 
TISECZ 
TITUe 
TPFPAB 
TPRPAZ 
TUID 
UDFLNE 
VSIMIN 
V$8TB 
VSCKIT 
VSCROR 
V$CTL 
VSERFG 
VSFREE 
VSIOST 
VSJNAM 
VSLIT 
VSLUNT 
V$LUT3 
VSOPCF 
VSPTVB 


v$TB 
VSTMN 
WALT 


ooo01t 

000002 
000000 
000001 

000003 
oo0000 
000010 
000000 
ooco00 
000020 
000016 
oo0422 
ooo4sy 
000415 
ooo414 
000310 
000354 
000351 

000241 

000320 
000412 
000377 
000317 
000316 
000330 
000311 

000361 


000342 
000343 
002043 


>> POOP E ES OMP rrr rrr rr errr ererr 


R 


TCWRSB 
TCXMMZ 
TIOSPB 
TIDWNZ 
TIOON 
TIODPB 
TLOSCZ 
TITUl 
TITUeB 
TPFPAZ 
TPHPA 
THO 
UDF TID 
V$BFC 
VS$BYN 
VSCKPT 
VSCRM 
VSCTMS 
VSEXEC 
VSIM 
V$JCB 
V$JOP 
VSLLUP 
VSLUP 
VSMPM 
VSOPCL 
VSSCTL 


VSTBGT 
VSTMS 
WRITE 


ZERO 
IRS ASSEMBLY COMPLETE 


000003 
000471 
000007 
000000 
000017 
000007 
000002 
000000 
000020 
000015 
000000 
002150 
001353 
000075 
000334 
000301 
000302 
000070 
000347 
000410 
000055 
000054 
000307 
000400 
000362 
000363 
000352 


000416 
000304 
000001 


PrPr PHP EES EOE rrr rr DDE rr rrr rrryr 


TCWRSZ 
TEN 
TIOSPZ 
TINET 
TIOONB 
TIODPZ 
TISEC 
TITUIB 
TITUeZ 
TPRPA 
TPHPAB 
TYPE 
UNIT 
VS$BGLB 
VSCAM 
VSCPL 
VSCRS 
VSDATE 
V$FGLB 
VSIOA 
VSJCFG 
VSLCNT 
VSLRSK 
V$LUTI 
VSNCTR 
VSPIMN 
vsscv 


VSTFC 
V$UTB 
WRITOP 


00004 
000464 
oo00002 
000000 
000001 

000003 
000007 
000020 
000017 
oo0000 
000020 
000466 
000243 
000056 
000353 
000076 
000360 
000355 
000306 
002174 
000077 
000313 
000312 
000401 
000413 
000074 
000375 


000314 
002276 
000001 


PMS SHH HHO > M> >> rrr DS yyy > ry rr rr>y 
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000000 


000001 
000002 


000003 
000004 


000005 
000006 
000007 


000010 
000011 
000012 
000013 
000014 
000015 


000016 
000017 
000020 
000021 
000022 


000023 
000024 
000025 
000026 
000027 


000030 
000031 
000032 


000000 
000001 


025001 
000002 
064631 


o26002 
oooo02 
064630 


016002 
004350 
054627 


100444 
100747 
002000 
000000 
000000 
064620 


oe5002 
001020 
000023 
006706 
ooo000 


014613 
005012 
144031 
001002 
000570 


015014 
150434 
001010 
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EJEC 02 00001 

* THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO2 00002 
. 02 00003 
‘ v.D.M. PART NO. 92L1105-039A 02 00004 
° 02 00005 
. RELEASED 03-26-73 02 00006 
. 02 00007 
° 02 00008 
* C52FUN 02 00009 
. 02 00010 
. 02 o001! 
TITLE C5@FUN 02 00012 

NLIS o2 00013 

LIST eeeeenee 

° 02 00014 
EVJEC 02 00015 

00016 

00017 

PROGRAM NAME - **02 00018 
CS52FUN - 520X DCM QUEUED FUNCTION PROCEDURE **02 00019 

**02 00020 

ENTRY CONDITIONS - **02 00021 

OO LSD ADDRESS **02 00022 

**02 00023 

CALLING SEQUENCE ~ **02 00024 

JMPM — C52FUN **02 00025 

(RETURN) **02 00026 

**02 00027 

EXIT CONDITIONS - **02 00028 

(A) DESTROYED **02 00029 

(B) DESTROYED **02 00030 

(0) UNCHANGED **02 00031 


EEC o2 

NAME CS52FUN 02 
CS2FUN ENTR 02 
“sO SET x ge 
. 0 
. A QUEUED FUNCTION IS ALWAYS THE FIRST REQUEST ON THE THREAD ge 
. 

Los LSRRT,LSO 02 
ROST SET B 02 

sTB FURQST SAVE RQST ADDRESS ge 
. 
. GET THE LCB ADDRESS FROM THE RQST AND SAVE 92 
. 

Los RFCB,ROST o2 
Leas SET 8 o2 

STB FULCB 92 
. 
. GET FUNC CODE FROM LCB AND SAVE 92 
. 

LOA OCCNT,LCB 02 

UsRA 8 02 

STA FUFUNC o2 
. 02 
. GET LINE CONTROL WORD ADORESS 92 
e 

EXT ccsFcH o2 

PUSH -CCSFCH 02 

ste FULCH SAVE LCH ADORESS ge 
. 
. GENERAL HOUSEKEEPING COMPLETED, CHECK IF INITIAL ENTRY OR o2 
e REENTRY DUE TO TIMEOUT OR INTERRUPT nA 
. 

LDB LSRCA,LSD 02 

582 Fuoo READ COMPLETION ADDR NON-ZERO, REENTRY. 02 

1MP 0,8 JUMP TO CONTINUATION ADDRESS 02 

EvEC 02 
. INITIATION ENTRY o2 
. VALIDATE FUNCTION CODE oe 
. 
FUOO LOA FUFUNC 02 

TAB 02 

suB FUVECT SUBTRACT MAX FUNC CODE FROM THIS FUNC CODE 02 

JAP FUzO FUNC CODE TOO HIGH, IGNORE 02 
. o2 
. FUNC CODE IN RANGE, CHECK FOR EXCLUSIONS DUE TO HODE CONFLICTS 08 
° 

TESTF LSD, LSASY ,LSASYB,LSASYZ o2 

JAZ Fu01 ASYNC LAD 02 


VTAM AL C52FUN « 144) PAGE 


900033 900042 R 
000034 014602 A 1359 LDA FUFUNC SYNC LAD, 02 00083 
000035 130466 A 1360 ERA SIx CHECK FOR TRANSMIT BREAKS FUNC CODE 02 00084 
000036 001010 A 1361 JAZ Fuzo CANT BREAK SYNC LINE, IGNORE FUNC RQST Oe 0008s 
000037 000570 R 
000040 001000 A 1362 UMP Fuo2 02 00086 
000041 000047 R 
o0004e 005122 A 1363 FUOL IBR ASYNC LAD, CHECK IF FUNC IS FOR SYNC ONLY 02 00087 
000043 006016 A 1364 LDAE FUVECT,B 02 00088 
000044 000057 R 
000045 001004 A 1365 JAN FuzoO IGNORE IF SYNC ONLY FUNC 2 0008s 
000046 000570 R 
1366 * 02 00090 
1367 * CALCULATE ORDINAL_IN TRANSFER VECTOR TABLE AND JUMP TO FUNC 02 00091 
1368 * PROCESSING ADDRESS 02 00092 
1369 ¢ 02 00093 
000047 024567 A 1370 FUuO2 LOB FUFUNC 02 00094 
000050 005122 A 1371 1BR 02 00095 
000051 006016 A 1372 LDAE FUVECT,B 02 00096 
000052 000057 R 
000053 150460 A 1373 ANA BRIS 02 00097 
000054 005012 A 1374 TAB 02 o00SsB 
000055 006706 A 1375 1 JUMP 0.8 02 00099 
000056 000000 A 
1376 * TRANSFER VECTOR TABLE 02 00100 
1377 « WORD O CONTAINS HIGHEST FUNC CODE ALLOWED 02 00101 
1378 * WORDS 1 - N CONTAIN THE ADDRESS OF THE PROCESSING 02 00102 
1379 « ROUTINE 02 00103 
1380 * IF 2**15 IS SET, FUNC IS ALLOWED FOR SYNC LADS ONLY 02 00104 
1381 * 02 00105 
000057 000031 A 1382 FUVECT DATA FUVECE-FUVECT=-1 02 00106 
000060 000570 R 1383 DATA FUuzO 0 INVALIO 02 00107 
000061 000570 R 1384 DATA FuzO 1 INVALID 02 00108 
000062 000570 R 1385 DATA FUuzO 2 INVALID 02 00109 
000063 000125 R 1386 DATA FUAO 3 WAIT FOR EVENT 02 00110 
000064 000167 R 1387 DATA FuBO 4 REVERSE CHANNEL ON 02 00111 
900065 000203 R 1388 DATA FUCO Ss REVERSE CHANNEL OFF 02 00112 
000066 000211 R 1389 DATA FUuDO 6 XMIT BREAKS 02 00113 
000067 000265 R 1390 DATA FUEO 7 CHANGE CONTROL CHARACTERS 02 00114 
000070 000272 R 1391 OATA FUFO 8 ANSWER LINE 02 00115 
00007! 000300 R 1392 DATA FUGO 3 HANG UP LINE 02 00116 
000072 100306 R 1393 DATA (FUHO) * 10 CHANGE SYNC CHARACTERS 02 00117 
000073 000355 R 1394 DATA FUuIO 11 SET LSEPF 02 00118 
000074 000362 R 1395 DATA Fuso 1@ CLEAR LSEPF 02 00119 
000075 000367 R 1396 DATA FUKO 13° SET LSOSF 02 00120 
000076 000374 R 1397 DATA FULO 14 CLEAR LSOSF 02 00121 
000077 000401 R 1398 DATA FUMO 15 SET LSTER 02 00122 
000100 000406 R 1399 DATA FUNO 16 CLEAR LSTER 02 00123 
OOOO! 100413 R 1400 DATA (FU00) * 17 SET LSYNC 02 00124 
000102 100420 R 1401 DATA (FUPO)* 18 CLEAR LSYNC 02 00125 
000103 000425 R 1402 DATA Fuao 19 SET LSABN 02 00126 
000104 000432 R 1403 DATA FURO 20 CLEAR LSABN 02 00127 
000105 000570 R 1404 DATA FUzO 21 INVALID 02 00128 
000106 000437 R 1405 DATA Fuso 22 SET LSASC 02 oo1e9 
000107 OOO4HY R 1406 DATA FUTO 23 CLEAR LSASC 02 00130 
000110 000451 R 1407 DATA Fuuo 24 INITIALIZE LINE 02 00131 
000111 R 1408 FUVECE EQu e 02 00132 
1409 EJEC 02 00133 
00011! OO0000 A 1410 FUIO ENTR WAIT FOR READ INTERRUPT OR TIMEOUT 02 00134 
000112 006017 A 1411 LDAE Fulo 02 00135 
000113 000111 
000114 055002 A 1412 STA LSRCA,LSO 


000115 001000 A 1413 JMP® C52FUN 02 00137 


000116 100000 


D>>D>>D>>D>> 
= 
rs 


000117 000000 Full ENTR WAIT FOR WRITE INTERRUPT OR TIMEOUT 02 00138 
000120 006017 A 1415 LOAE Full 02 00139 
000121 000117 
000122 055006 A 1416 STA LSHCA,LSO 
000123 001000 A 1417 UMP ® C52FUN 02 00141 
000124 100000 
1418 # PROCESS WAIT FOR EVENT 02 o014e 
1419 FUNC CODE 03 02 00143 
1420 * 02 00144 
1421 FUAQ = DINTS DISABLE INTERRUPTS 02 00145 
000125 100444 A 
000126 100747 A 
1422 ExT VTPUSH,C52SST BUILD CCM STATUS WORD 
000127 002000 A 1423 JMPM VTPUSH 
000130 000013 E 
00013! 000000 E 1424 DATA csessT 
000132 065013 A 1425 ste LSDST,LSD SAVE STATUS WORD IN DYNAMIC AND STATIC 
000133 065005 A 1426 sTB LSSRS,LSD WORDS IN LSD 
000134 024500 A 1427 LOB FULCB 
000002 A 1428 LCB SET 8 STORE WORD 3 OF LCB (EVENT MASK) IN 
000135 016003 A i429 LDA 3,LCB READ EVENT MASK IN LSO 
000136 055003 A 1430 STA LSREM,LSD 
000137 006010 A 1431 FUAI LDAI 50 SET TIMEOUT TO 250 MS 
000140 000062 A 
000141 055004 A 1432 STA LSRTO,LSO 
000142 002000 A 1433 JMPM Fuio WAIT FOR TIMEOUT OR INTERRUPT ON READ 
000143 000111 R 
1434 # 
tie * RETURN AFTER EVENT OR TIMEOUT 
436 ¢ 
1437 TESTF LSO,LSRRS,LSRASB+1,1 


OOO14Y 015016 
000145 150432 


>> 


VTAM Al 


000146 
000147 


000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 


000163 
000164 
000165 
000166 


000167 


000170 
000171 
000172 


000173 


000174 
000175 


000176 
000177 
000200 
000201 
000202 


000203 


000204 
000205 
000206 
000207 
000210 


oo0211 


o00de12 
000213 
000214 


000215 
000216 
000217 
oo0e20 
o00ee1 
oo0e2e 


000223 
o002e4 
000225 
o002e6 


000227 
000230 
000231 
000232 
000233 
000234 
000235 


000236 


000237 
000240 
000241 
000242 
000243 


001016 
000163 


100444 
100747 
002000 
000130 
000131 
005021 
055013 
135005 
155003 
001010 
000137 


005001 
055002 
001000 
000600 


O24446 
000002 


016006 
110436 
056006 


005021 


120466 
054002 


006506 
000000 
000000 
001000 
000570 


024432 
oo000e 


016006 
150456 
056006 
001000 
000173 


oe44e2 


02000 
000000 
oe44et 
000002 
016006 
006110 
010400 
006150 
137777 
056006 


016007 
110440 
056007 
005001 


004253 
135016 
004353 
150467 
004253 
135016 
055016 


024377 


120466 
054002 
006506 
000177 
000000 


A 
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D>>m> ye > 


D>>>> >> 


SMP rr > PPP P> err HHH rH HHH D> Ee r>M> > 


1462 FUBI 


1467 FUB2 


1481 FUDO 


1485 LCW 


1493 © 
1494 
1495 


1496 
1497 


1498 FUOL 
1499 ¢ 


CS2FUN 145) 


JANZ Fuae CHECK IF 10 CLEAR 


ExT c5esst 


PUSH c5esst GET LATEST STATUS FROM LAD 


TBA 

STA LSDST,LSD SAVE UPDATED STATUS 

ERA LSSRS,LSD CHECK IF EVENT HAS OCCURED 
ANA LSREM,LSD 

JAZ FUAL NO EVENTS, GO BACK TO TIMEOUT 


EVENT OR 10 CLEAR OCCURRED 


TZA ZERO READ COMPLETION ADDRESS 
STA LSRCA,LSD AND 
JMP Fuzt EXIT 


EJEC 
SET CONTROL (REVERSE) CHANNEL ON 


LOB FULCH SET 'C’' BIT IN PCW 
SET 


8 
SETF LCW,LCCWC ,LCCWCB,LCCWCZ 


OUTPUT PROTOTYPE CONTROL WORD 


TBA 
ADAT LCLcB CALCULATE ADDRESS OF PCH 
STA FuBe 


ExT CSeRCH 
JSR C52RCH,B WRITE CONTROL SEQUENCE 
DATA 0 

UMP Fuzo 


EEC 
SET CONTROL (REVERSE) CHANNEL OFF 


a oo CLEAR 'C’ BIT IN PCH 
SE 
CLEARF LCH,LCCHC,LCCWCB,LCCWCZ 


MP FUBL 


EJEC 
TRANSMIT BREAKS 


LoB FURQST 
ExT CCS$SCH 
JMPM CCSSCH BUILD LINE CONTROL WORDS 


LOB FULCH 


SET 8 SET 'B' AND 'T' IN PCH. CLEAR 


LDA LCLCB,.LCH 
ORAL 010400 


ANAI 0137777 


STA LCLCB,LCH 
SETF LCW,LCLTB,LCLTBB,LCLTBZ 


SETA LSO,LSWRS ,LSWRSB,LSWRSZ 


INITIATE CONTROL WRITE SEQUENCE 
LOB FULCH 
ADAT LcLce 


STA Fuol 
JSR C5eRCH.B 
DATA 0 
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02 
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02 
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02 
02 
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00165 
00166 


00167 
00168 
00169 
00170 
00171 
00172 


00173 
00174 
00175 
00176 
00177 
00178 
00179 


00180 
00181 
00162 
00183 
00184 


00185 
00186 
00187 


oo1ss 
00189 


00190 
00191 
00192 
00193 
00194 
00195 
00196 


00197 


00198 
00199 
00200 
00201 
00202 
00203 
00204 


00205 
00206 
00207 
oo208 


00209 


00210 
00211 


oo21e 
00213 


00214 
00215 
00216 


00217 
00218 


00219 
00220 


VTAM AL 


000244 


000245 
000246 


000247 
000250 


000251 
000252 


000253 
000254 
000255 
000256 
000257 
000260 


000261 
000262 
000263 
000264 


000265 


000266 
000267 
000270 
000271 


000272 


000273 
000274 
000275 
000276 
000277 


000300 


000301 
000302 
000303 
000304 
000305 


000306 


000307 
000310 
000311 
000312 
000313 
000314 


000315 


000316 
000317 
000320 
000321 
000322 
000323 
000324 
000325 
000326 


000327 
000330 


000331 
000332 


025012 
go0002 
016024 
001016 


oo0244 
024365 
oo000e 
001016 
000244 


016006 
006150 
167377 
056006 
002000 
000111 


005001 
055002 
001000 
000570 


024347 
000002 
016003 
055015 
001000 
000570 


024343 
ooo00e 


016006 
110434 
056006 
901000 
000173 


024335 
000002 


016006 
150454 
056006 
001000 
000173 


024327 
ooo002 


016006 
150474 
110430 
054040 
110427 
054037 


024317 
cooo0e 
016003 
150462 
114032 
054031 
016003 
004250 
150462 
114026 
054025 


014024 
004350 


135020 
150463 
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C52FUN ( 146) PAGE 


LOB LSCTA,LSO 


SET 8 
LOA OMCWA ,DMT 
JANZ Fude LOOP UNTIL CONTROL NOT BUSY 


LoB FULCH 
SET 8B 
JANZ Fude 


CLEAR 'B' AND 'T' BITS IN CHP 


LDA LCLCB,LCW 

ANAI 0167377 

STA LCLCB,LCH 

JMPM Fulo WAIT FOR INTERRUPT 


REENTRY WHEN BREAK COMPLETE 


TZA 
STA LSRCA,LSD 
UMP FuzO 


EJEC 
CHANGE CONTROL CHARACTERS 


LOB FULCB 

SET 8 

LDA 3,LCB MOVE CONTROL CHARACTERS FROM LCB 

STA LSCC1,LSD TO LSD 
JMP FuzO 


EVEC 
TURN DATA-TERMINAL~READY ON (ANSWER LINE) 


LOB FULCH 
SET 8 SET OTR BIT IN PCH 
SETF LCW,LCCWD,LCCWOB,LCCHOZ 


JMP FUBI GO TO CONTROL SEQUENCE 


EJEC 
TURN DATA-TERMINAL~READY OFF (HANG-UP LINE) 


LoB FULCH 
SET 8 CLEAR OTR BIT IN PCH 
CLEARF LCW,LCCWD,LCCHOB,LCCHOZ 


JMP FUBI GO TO CONTROL SEQUENCE 


EVEC 
CHANGE SYNC CHARACTERS 


SET 
FETCHA FCW,LCLCB,0,6 


LOB FULCH 
8 


ORA 8S7 STORE PHYSICAL LINE NUMBER IN CW XMIT SYNC 


STA FUHTS AND CH RCV SYNC 
BS6 

STA FUHRS 

MOVE SYNC BYTES INTO CONTROL WORDS 


LoB Ae 


SET 

LOA 3.8 
ANA LHW 
ORA FUHTS 
STA FUHTS 
LDA 3,8 
LRLA 8 

ANA LHW 


MOVE SYNC BYTES INTO LSD 


LDA FUHRS STORE RECEIVE SYNC 
LSRA 8 
SETA LSD,LSYNR,LSYNRB,LSYNAZ 


VTAM Al 


000333 
000334 


000335 
000336 


000337 


000340 
000341 
000342 


000343 
000344 
000345 


000346 
000347 
000350 


000351 
000352 


000353 
000354 


000355 
000356 
000357 
000360 
000361 


900362 
000363 
000364 
000365 
000366 


000367 
000370 
000371 
000372 
000373 


000374 
000375 
000376 
000377 
000400 


000401 
00402 
000403 
000404 
000405 


000406 
000407 
000410 
000411 
900412 


135020 
055020 


o140i5 
004350 


135017 


150463 
135017 
055017 


006506 
oooe4e 
000353 


006506 
000344 
000354 
001000 
000570 


000000 
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000000 A 


015016 
110437 
055016 
001000 
000570 


015016 
150457 
055016 
001000 
000570 


015017 
110440 
055017 
001000 
000570 


015017 
150460 
055017 
001000 
000570 


015016 
110440 
055016 
001000 
000570 


015016 
150460 
055016 
001000 
000570 
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LDA FUHTS STORE XMIT SYNC 
LSRA 8 
SETA LSD,LSYNT,LSYNTB,LSYNTZ 


OUTPUT CONTROL WORDS 


JSR C52RCH,.B XMIT 
DATA FUHTS 

JSR C52RCH,B RCV 
DATA FUHRS 

JMP Fuzo 

DATA ti) 

DATA 1) 


EVEC 
SET LSEPF (E/P BIT) IN LSD 


SETF LSD ,LSEPF ,LSEPFB,LSEPFZ 
JMP Fuzo 


EJEC 
CLEAR LSEPF IN LSD 


CLEARF LSO,LSEPF,LSEPFB,LSEPFZ 
JMP Fuzo 


EVEC 
SET LSOSF (0S/S BIT) IN LSO 


SETF LSO,LSOSF ,LSOSFB,LSOSFZ 
MP Fuzo 

EvEC 

CLEAR LSOSF 

CLEARF LSD,LSDSF ,LSOSFB,LSOSFZ 


MP Fuzo 
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Evec 
SET LSTER (TERMINATE READ UPON RECEIPT OF CONTROL CHARACTERS) 


SETF LSD, LSTER,LSTERB,LSTERZ 
JMP Fuzo 


Evec 
CLEAR LSTER 


CLEARF LSO,LSTER,LSTERS,LSTERZ 
JMP Fuzo 


EEC 
SET LSYNC (CAUSES RESYNCHRONIZATION FOR EACH READ 


VTAM AL 


000413 
oo0414 
000415 
000416 
000417 


000420 
oo004el 
00422 
000423 
oo04ey 


o004e5 
000426 
000427 
000430 
000431 


000432 
000433 
000434 
000435 
000436 


000437 
000440 
o00441 
ooo44e 
000443 


ooo444 
000445 
o0044K6 
000447 
000450 


000451 
000452 
000453 
000454 


000455 
000456 
000457 


000460 


000461 
000462 
000463 
o00464 
000465 
000466 
000467 


000470 


000471 
000472 


015017 
110437 
055017 
001000 
000570 


015017 
150457 
055017 
001000 
000570 


015017 
110436 
055017 
001000 
000570 


015017 
150456 
055017 
001000 
000570 


015017 
110432 
055017 
001000 
000570 


015017 
150452 
055017 
001000 
000570 


015016 
150463 
110427 
os4iie 


006506 
000347 
000567 


024105 


015017 
150432 
001010 
000466 
010437 
005031 
024146 
000002 
056000 


005001 
056001 
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C52FUN ( 148) 
SETF LSD,LSYNC ,LSYNCB,LSYNCZ 


JMP FuzO 
EVEC 
CLEAR LSYNC 


CLEARF LSD,LSYNC,LSYNCB,LSYNCZ 
JMP FUzO 


EJEC 
SET LSABN (TERMINATE READ UPON DETECTION OF ERROR) IN LSO 


SETF LSD ,LSABN,LSABNB,LSABNZ 
IMP Fuzo 

EvEC 

CLEAR LSABN 

CLEARF LSO,LSABN,LSABNB,LSABNZ 
UMP Fuzo 


EEC 
SET LSASC (FORCES 2**7 = 1 FOR EACH BYTE INPUT) IN LSD 


SETF LSD,LSASC ,LSASCB,LSASCZ 
JMP Fuzo 


EEC 
CLEAR LSASC 


CLEARF LSD,LSASC,LSASCB,LSASCZ 
UMP Fuzo 


EVEC 

INITIALIZE LINE ADAPTOR AND LCW 
FETCHA LSD,LSPLA,LSPLAB,LSPLAZ 
ORA BS6 
STA FUuUCH 
PERFORM WRITE CONTROL SEQUENCE TO CLEAR ALL CONTROL OPTIONS 
JSR C52RCH,.B 

DATA FUUCH 

BUILD LCW FROM LSD INFO 

WORD ZERO 


LOB FUULCH 
TESTF LSO,LSASC,LSASCB,LSASCZ 


BUILD CW WITH A ZERO CONTROL BYTE 


JAZ Fuul 

LDA BS14 

MERGE 031 (A) .OR,. (B) REPLACE (A) 
Los FULCH 

SET 8 

STA LCIBL,LCW 

WORD 1 

TZA 


STA LCIBA,LCW 
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02 


00355 


VTAM AL 


000473 
000474 


000475 


000476 
000477 
000500 
000501 
000502 
000503 


000504 
000505 
000506 
000507 
000510 


000511 
o00sie 
000513 
000514 
000515 
000516 


000517 
000520 
000521 
oo005ee 
000523 
ooo5e4 


000525 
000526 


000527 
000530 


000531 
000532 


000533 


000534 
000535 
000536 
000537 
000540 
000541 


o00s54e 
000543 
000544 
000545 


000546 
000547 
000550 
000551 
000552 
000553 
000554 


000555 


000556 
000557 


000560 


000561 
000562 
000563 
000564 
000565 


015015 
056002 


005002 


015016 
150440 
001010 
000504 
010440 
005032 


015017 
004352 
150467 
004254 
005032 


015017 
150436 
001010 
000516 
010434 
005032 


015014 
150434 
001010 
000524 
010433 
005031 


024110 
oo000e 
056003 


014036 
056004 


005001 
056005 


024033 


015017 
150440 
001010 
000542 
010440 
005032 


o1s014 
150434 
001010 
000553 


015016 
150437 
001010 
000553 
010433 
005031 
024061 
oo0002 
056006 


005001 
056007 


015014 


150434 
001010 
000570 
001000 
000306 
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WORD 2 

LDA Lscc1,Lso 
STA LCICI,LCW 
WORD 3 

TzB 


TESTF LSD,LSTER,LSTERB,LSTERZ 


JAZ Fuue 
LDA BS15 
MERGE 032 (A) .OR. (B) REPLACE (B) 


FETCHA LSD,LSCRC,LSCRCB,LSCRCZ 


LRLA LCCRCB 

MERGE 032 

IF LSABN SET, SET LCABN 

TESTF LSO,LSABN,LSABNB,LSABNZ 


JAZ Fuu3 
LDA BS11 
MERGE 


032 
MOVE LSASY TO LCASY 
TESTF LSD,LSASY,LSASYB,LSASYZ 


JAZ FUU3A 
LDA BS10 
MERGE O31 

STORE WORD 3 

LOB FULCH 

SET 8 

STA LCIKE,LCH 
WORD 4 

LDA FUULCH 
STA LCOBF ,LCH 
WORD 5 

TZA 

STA LCOBA,LCH 
WORD 6 

LDB IF LSDSF SET, SET LCCHS 


FUUCH 
TESTF LSO,LSDSF,LSOSFB,LSOSFZ 


JAZ Fuu4 
LOA Bs15 
MERGE 032 


IF ASYNC LINE ADAPTOR, IGNORE LSEPF 
TESTF LSO,LSASY,LSASYB,LSASYZ 
JAZ FUUS 


SYNCHRONOUS LINE ADAPTOR, CHECK LSEPF 
TESTF LSO,LSEPF ,LSEPFB,LSEPFZ 


JAZ FUUS 

LOA BS10 
MERGE O31 

LOB FULCH 

SET 8 

STA LCLCB,LCW 
WORD 7 

TZA 

STA LCOKE ,LCW 


IF SYNC LINE OUTPUT TRANSMIT AND RECEIVE SYNC BYTES 
TESTF LSD,LSASY,LSASYB,LSASYZ 


JAZ FuzO 
JMP- FUHO 
CONSTANTS 
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02 
02 


00418 
00419 
00420 
oo4el 
oo42e 


o04e3 
oo4e4 
00425 
00426 


00427 


o04e8 
00429 
00430 


00431 
00432 
00433 
00434 


00435 


00436 
00437 
00438 
00439 


00440 


00441 
oo4we 
00443 
oo444 
00445, 
00446 
00447 
00448 
00449 
00450 
00451 
004s2 


004s 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
0046! 


00462 


00463 
oo464 
0046S: 
00466 


00467 


00468 
00469 


00470 


00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
00479 
00480 
00481 
00482 
00483 
oo4s4 


oo4es 
00486 


00487 
00488 


VTAM AL 


000566 107777 
000567 oo0000 


000570 024043 
000571 oosoot 


000572 100444 
000573 100747 


000574 002000 
000575 000000 
000576 001000 
000577 000617 


000600 015013 
000601 005012 


000602 015016 
000603 004350 
000604 150467 
000605 150422 
000606 001010 
000607 000611 
000610 010430 
000611 005031 
000612 024021 


000613 100444 
000614 100747 
000615 002000 
000616 000000 


000617 100244 
000620 100147 
000621 005001 
oo0622 055002 


000623 004250 


000624 135016 
000625 004350 
000626 150467 
000627 004250 
000630 135016 
000631 055016 
000632 001000 
000633 100000 


000634 000000 
000635 000000 
000636 000000 
000637 000000 


ENTRY NAMES 


A 


D>M> Se >> 
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000000 R CS2FUN 
EXTERNAL NAMES 
000456 E C5eRCW 


000002 


000575 E CCSORQ 
SYMBOLS 
000044 A APIM 
oo000l2 A B10 
000016 A B14 
000004 A BY 
000010 A B88 
000472 A BMI7 
000473 A BM37 
000476 A BM777 
000454 A BRII 
000460 A BRIS 
000446 A BRS 
000452 A BRO 
000434 A BSI1 
000440 A BS15 
000426 A BS5 
000432 A BSS 
000616 E CCSCRQ 
000047 A CLOCK 
000001 A CTACTZ 
000011 A CTBIC 
000000 A CTDSTB 
000020 A CTOVAZ 
000014 A CTFRC 
000000 A CTFREB 
000017 A CTI0BZ 

A 

A 


000000 


CTRCNB 


1768 * 


1769 FUULCH DATA 0107777 
1770 FUUCH DATA ti) 


C52FUN ( 150) 


1771 EJEC 

1772 © WRAP-UP PROCESSING 

1773 # NO DST RETURNED 

1774 FUZO LOB FuRQsT 

1775 TZA SET REQUEST STATUS TO NO ERRORS 
1776 DINTS 

1777 ExT CCSORQ 

1778 JMPM CCSORQ 

1779 UMP Fuz3 

1780 * 

1781 * OST RETURNED 

1762 * 

1783 FUZ! FETCHA LSD,LSDST,LSDSTB,LSDSTZ 

1784 TAB 

1785 FETCHA LSD,LSRRS,LSRRSB,LSRRSZ 

1786 ANA BSI CHECK IF 10 CLEAR 
1787 JAZ Fuze 

1788 LDA 8s7 SET 10 CLEAR BIT IN STATUS 
1789 FUZ@ MERGE 031 

1790 LoB FURQST SET (B) TO REQUEST ADDRESS 
1791 ExT CCSCRQ 

1792 DINTS 

1793 JMPM CCSCRQ COMPLETE THE REQUEST 
1794 FUZ3 EINTS 

1795 TZA ZERO READ COMPLETION ADDRESS 
1796 STA LSRCA,LSD AND READ REQUEST STATUS 
1797 SETA LSD,LSRRS,LSRRSB,LSRRSZ 

1798 JMP® CS52FUN 

1799 EJEC 

1800 ¢ CONSTANTS AND TEMPORARY STORAGE 

1801 ¢ 

1602 * 

1803 FURQST DATA 0 

1804 FULCB DATA 0 

1805 FULCW DATA tO) 

1806 FUFUNC DATA 0 

1607 END 

000154 E C52SST 000616 E CCS$CRQ 000014 E CCSFCH 
000213 E CC$SCW 000153 E VTPUSH 

000002 A B 000000 A 60 000001 A BI 

000013 A Bll 000014 A Ble 000015 A B13 

000017 A B15 000002 A Be 000003 A 83 

000005 A 85 000006 A 86 000007 A B7 

oo0001! A BS 000000 A BICNUM 000421 A BMI 

000475 A BM177 000477 A BM1777 OOON6Y A BMS 

000463 A BM377 000467 A BM7 000474 A BM77 
000441 A BRO ooo44ve A BRI 000453 A BRIO 
000455 A BRI2 000456 A BRIS 000457 A BRIY 
000443 A BRe 000444 A BR3 000445 A BRY 

000447 A BRE 000450 A BR7 000451 A BRB 

000421 A BSO oo0422 A BSI 000433 A BS10 
000435 A BS12 000436 A BS13 000437 A BSI4 
000423 A BSe 900424 A BS3 000425 A BSY 

000427 A BS6 000430 A BS7 000431 A BS8 

000000 R CS2FUN 000456 E C52RCW 000154 E C5eSsT 
000014 E CCSFCW 000575 E CCSORQ 000213 E CC$SCW 
000000 A COTADI 000000 A CTACT 000017 A CTACTB 
000001 A CTAON 000000 A CTADNB 000020 A CTAONZ 
000000 A CTBICB 000020 A CTBICZ 000003 A CTOST 
000020 A CTOSTZ 000006 A CTOVA 000000 A CTDVAB 
000012 A CTFCB 000000 A CTFCBB 000020 A CTFCBZ 
000010 A CTFRCB O00010 A CTFRCZ 000014 A CTFRE 
000010 A CTFREZ 000000 A CTIDB 000000 A CTIOBB 
000007 A CTIOA 000000 A CTIOAB 000020 A CTIOAZ 
000000 A CTOPMB 000020 A CTOPMZ 000005 A CTRCN 
000010 A CTRCNZ 000004 A CTRQB 000000 A CTRQBB 


PAGE 


00489 
oo490 
004s! 


oo4ge 
00493 
00494 
00495 
00496 
00497 


00498 
00499 


00500 


00501 
o0s0e 
00503 
00504 


00505 
00506 


00507 
00508 


00509 
00510 
00511 
00512 
00513 


00514 
00515 
00516 


00517 
00518 


VTAM AL 


000020 
000010 
000000 
000000 
000024 
000000 
ooo00e0 
000023 
000000 
000020 
000002 
000002 
000001 
000002 
000147 
000465 
000047 
000137 
000200 
000244 
000300 
000355 
000635 
000413 
000634 
000466 
000542 
000111 
000611 
000013 
000001 
000003 
000006 
000013 
000001 
000006 
000017 
000001 
000000 
000000 
000010 
000003 


000006 
000017 
000017 
000004 
000000 
000001 

000002 
000001 

000014 
000010 
000010 
000012 
000017 
000000 
ooooo! 

000014 
000010 
000002 
000002 
000000 
000003 
000004 
000000 
000020 
000000 
000000 
000020 
000010 
000011 

000001 
000017 
000045 
000420 
000001 
000000 
000004 
000000 
000000 
000010 
ooo00e 
oo001e 
ooo04e 


000040 
000015 
000001 
000010 
000010 
000002 
000017 
000001 
000001 
000000 
000000 
000000 
000017 
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CTROBZ 
CTSTA 
CTWOSB 
DCRECL 
OMCWA 
DMFPAB 
OMLCAZ 
OMPTA 
DMRPAB 
OMSTAZ 
OMT 
OSCTAD 
OSNAME 
OSREWD 
ENACLK 
FIVE 
Fude 
FUAL 
FUB2 
Fub2 
FUuGO 
Fulo 
FULCB 
Fuoo 
FURQST 
Fuul 
FUuUY 
FUVECE 
Fuze 
LCABNB 
LCASYZ 
LCCRCZ 
LOCWC 
LCCWDB 
LCCHIZ 
LCCWR 
LCCWSB 
LCCWTZ 
LCIBF 
LCIBLB 
LCICIZ 
LCIKE 


PSTERB 


000005 
00000 
o000e0 
000747 
oooc00 
000020 
000022 
000000 
000020 
0000e5, 
000015 
900000 
000000 
000000 
000645 
000423 
ooo11! 

000163 
000203 
000265 
000306 
000362 
000636 
000420 
000437 
000504 
000553 
000057 
000617 
ooooo1 

000002 
000006 
000015 
000001 

000006 
000011 

000001 

000001 

000017 
000014 
ooo00e 
000000 


000000 
000001 
000004 
000000 
000004 
000000 
000462 
000017 
000013 
000010 
000017 
ooo000 
000017 
900020 
000014 
000016 
000006 
000016 
000000 
000020 
000001 
000000 
000020 
000016 
000000 
000020 
000016 
000000 
000002 
000020 
000000 
000145 
00046! 
00001! 
000010 
oooco! 
000010 
oooo04 
000001 
000010 
000002 
000043 


000040 
000001 
000002 
000010 
000003 
000010 
00000! 
oooc04 
oooo0e 
000016 
000014 
000010 
ooo0001 
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LCIKEB 
LCLCBB 


PSTERZ 


000010 
000020 
00000! 

000745 
000020 
000021 
o90000 
000020 
o00020 
000000 
000000 
000000 
900002 
ooo00e 
000244 
000023 
000117 
000167 
ooo211 

000272 
000354 
000367 
000401 

o004e5 
ooo444 
oo0si6 
000567 
000570 
000300 
000003 
000003 
000014 
000001 

000006 
000012 
000001 

000006 
000000 
000001 

000002 
000000 
000004 


oo00e0 
000005 
000017 
000014 
000003 
000016 
000017 
000011 
000001 
000015 
oooole 
000020 
000001 
000016 
000000 
go000e 
000014 
000000 
000020 
000016 
000000 
000020 
000011 
000017 
000020 
000007 
000013 
000020 
000017 
000000 
000010 
000245 
000470 
000001 
000002 
000014 
000010 
000001 
000010 
000004 
000040 
000040 


000200 
000000 
000000 
000001 
000012 
oooo01 
000002 
000002 
000000 
oo0000e 
000002 
ooocol 
ooocoo 


PPO EEE HEE SOE Hr UOVUVDDVVVVVDUS rr re rryoreryrrry 


PPP Pre r Ore erm POE EHP EEE EEE EEE EEE EEE EE E> EE >>> EO > E> > E> PEED 


CTRTRB 
CTSTAZ 
OCBUFF 
OISMP 
OMCWAZ 
DMLCA 
DMLTAS: 
DMPTAZ 
DMSTA 
OMSWAB 
DMTPAB 
DSOVON 
OSOPCM 
DSUNTN 
ENAPIM 
Fuoo 
Full 
FUBO 
FuDO 
FUFO 


LCIKEZ 


LCLCBZ 
LCOBA 
LCOBFB 
LCOBLZ 
LCRCC 
LCSMBB 
LSABN 
LSASCB 
LSASYZ 
tscce 
LSCRCB 
LSCTAZ 
LSDSFZ 
LSEPF 
LSLSPB 
LSMODZ 
LSPAR 
LSPLAB 
LSRCAZ 
LSRRS 
LSRRTB 
LSRTOZ 
LSSWS 
LSTERB 
LSTHOZ 
LSWEM 
LSWRSB 
LSWTOZ 
LSYNC 
LSYNRB 
LSYNTZ 
MPMR2 
NINE 
PCBSLZ 
PCCTP 
PCECHB 
PCLLNZ 
PCPCH 
PCSHLB 
PCTYPZ 
PIM 
PIMS 


POST 
PSASY 
PSBEG 
pscce 
PSCRCB 
PSDEFZ 
PSDWN 
PSEPF 
PSLSPB 
PSMODZ 
PSPARZ 
PSPROT 
PSXMM 


000010 
000013 
000002 
000444 
000017 
000000 
000020 
000016 
000000 
000020 
000020 
000002 
000002 
ooo4e4 
000002 
oo004e 
c.01e5 
000173 
000243 
000637 
000353 
000374 
000406 
000432 
000451 
oo00se4 
000566 
oo0600 
000003 
oooo12 
000014 
000001 
000006 
000016 
000001 
000006 
000010 
000017 
000000 
000010 
000010 
000050 


000007 
000000 
000001 
000007 
000017 
000001 
900015 
000001 
000015 
000000 
000003 
000001 
000013 
oo0016 
00001! 
000020 
000014 
co00010 
000003 
000010 
oo000e0 
000005 
000000 
00000! 
000006 
000000 
000003 
000014 
000016 
000010 
000045 
000345 
ooo4e! 
000000 
00014 
000001 
oo0002 
000000 
000001 
00000! 
000041 
000040 


000003 
000013 
000001 
000000 
000003 
000003 
000011 
000016 
ooooil 
000003 
ooo00e 
00002 
000011 
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C52FUN 


CTRTRZ 
CTWOS 
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VTAM AL 


ooo002 
000004 
000000 
ooo004 
000463 
000003 
000026 
oon0l4 
000016 
000002 
000007 
oooo0! 
000015 
000003 
000007 
000025 
000004 
000000 
000001 
000005 
000000 
000020 
000015 
000000 
000001 
000005 
000000 
000010 
000013 


000000 
000003 
000006 
000000 
000001 
000005 
000016 
000020 
000006 
000012 
000002 
000017 
000020 
000003 
000007 
000010 
oocoo! 
000000 
000020 
000422 
000056 
000353 
000076 
000360 
000355 
000350 
000055 
000054 
000307 
000400 
000362 
000363 
000352 
000416 
000304 


PPP HEPES EEE ESE HEE EEE EEE EEE EEE EEE EES PPE E EEO ESSE SOE EEE DEE >> E> rEEEyd 


A 


PSXMMZ 
PSYNR 
PSYNTB 
RADNR 
RH 
RTIDB 
TBCPTH 
TBISA 


TCRCAB 
TCRMOZ 
TCRRS 

TCSTOB 
TCSWLZ 


v$uTB 


000003 
000000 
000010 
000060 
000001 
000467 
ooo001t 
000015 
000022 
000004 
000010 
000012 
000016 
00004 
000010 
000013 
000011 
000010 
000002 
000014 
000020 
000004 
000000 
000020 
000003 
000004 
000004 
900004 
000000 


000020 
000001 
000006 
000020 
000000 
000010 
000001 
000006 
000011 
000002 
000000 
000001 
000003 
000000 
000010 
000000 
000000 
000020 
000016 
000403 
000315 
000411 
000341 
000300 
000376 
000320 
000077 
000313 
000312 
000401 
000413 
000074 
000375 
000314 
000153 


PPP HEE EEE SEH HEE EEE DEE EEE EEE >> EEE ED PEPE OE EEE EEE EOE EEE EEE EOE EEE ED 


PSYNC 
PSYNRB 
PSYNTZ 
RBO 
ROPWO 
SEVEN 
TBENTY 
TBISB 
TBKNI 
TBRSA 
TBRSTS 
TBSIO 
TBSI4 
TBS4 
TBSB8 
TBTMIN 
TCBSLB 
TCCLNZ 
TCCTA 
TCCTPB 
TeocczZ 
TCECH 
TCIOIB 
TC102Z 
TCLLN 
TCNODB 
TCNTOZ 
TCRBC 
TCRBFB 


TCRCAZ 
TCRQH 
TCRRSB 
TCSTOZ 
TCTCO 
TCTYPB 
TCWBCZ 
TCWMD 
TCWRSB 
TCXMMZ 
TIOSPB 
TIOWNZ 
TIODN 
TIOOPB 
TIOSCZ 
TITUL 
TITUeB 
TPFPAZ 
TPHPA 
VSIMIN 
V$BTB 
VSCKIT 
VSCROR 
VSCTL 
VSERFG 
VSIM 
V$JCTM 
VSLER 
VSLSAL 
v$LuTe 
vsoce 
VSPLCT 
VSSLFG 
V$TUCP 
VTPUSH 


0 ERRORS ASSEMBLY COMPLETE 


000016 
000010 
000040 
000020 
000002 
000466 
ooov0s 
ooool? 
0000e3 
000005 
000006 
000013 
000017 
000005 
00011 
ooo001e 
000001 
000004 
oo0000 
000004 
ooco14 
000014 
oo00e0 
000006 
000010 
ooo004 
000004 
000017 
000020 


000006 
000000 
000003 
000004 
000000 
000004 
oooot! 
000003 
000003 
000471 
000007 
oo0000 
000017 
000007 
000002 
000000 
000020 
000015 
000000 
000415 
000414 
000310 
000354 
000351 
000347 
000410 
000050 
000356 
000345 
000402 
000346 
000305 
000303 
000344 
000001 


PPP E EEE EEE EEE OEE EEE EEE > EEE EEE EEE EES PEP EEE EEE EEE EEE EE EEE > ESS EEE PED 


PSYNCB 
PSYNRZ 
RAO 
RBI 
RQST 
SIX 
TREVNT 
TBISP. 
TBKN2 
TBRSB 
TBRSX 
TBSI1 
TBS15 
TBS5 
Tes9 
TBTMS 
TCE 3LZ 
TCCON 
TCCTAB 
TCCTPZ 
TCOTO 
TCECHB 
TCIDIZ 
TCLOF 
TCLLNB 
TCNODZ 
TCPCH 
TCRBCB 
TCRBFZ 


TCRMD 
TCROHB 
TCRRSZ 
TCSWL 
TCTCOB 
TCTYPZ 
TCWCA 
TCWMOB 
TCWRSZ 
TEN 
TIOSPZ 
TINET 
TIOONB 
TIODPZ 
TISEC 
TITUIB 
TITUeZ 
TPRPA 
TPHPAB 
VSBFC 
VSBVN 
VSCKPT 
VSCRM 
VS$CTMS 


000001 
000003 
oo0000 
oo0002 
ooooco 
000027 
0006021 
000020 
000024 
000030 
ooo000 
000014 
000002 
000006 
000001 
000000 
000003 
000015 
000020 
000012 
000000 
000001 
000016 
000014 
000010 
000005 
000000 
000001 
000007 


000000 
000020 
000010 
000010 
000020 
000004 
000000 
000003 
000004 
oo0464 
000002 
000000 
900001 
000003 
000007 
900020 
000017 
000000 
000020 
000075 
000334 
000301 
000302 
000070 
000306 
oo04l2 
000377 
000317 
000316 
000330 
000311 
000361 
000342 
000343 
000420 
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VTAM Al 


000000 


000001 
oo000e 


000003 
000004 
000005 


000006 
000007 
000010 
000011 
000012 
000013 
oo0014 
000015 
000016 


000017 
000020 
ooo0e! 
000022 
000023 
000024 
000025 
000026 
000027 
000030 


000031 
000032 
900033 


000034 
000035 
000036 
000037 
000040 
000041 
ooo04e 
000043 
oo0044 
000045 


000006 


100244 
100147 


006027 
000000 
036003 
oooool 


015016 
150463 
110427 
056001 
905021 
005111 
056007 
OO5111 
056010 


014053 
056005, 
014052 
056006 
014051 
056011 
014050 
056012 
006706 
000005 


006027 
000004 
036003 


015014 
004356 
001016 
00044 
006010 
000013 
001000 
000045 
905001 
030467 


>>mM> Sr > 


Pr > rr rrr > r Sheer r>r>> 


>m> 


>> D>r>rD>>> 


-comyvouLfWn— 


1320 CS2SsT 
1 


. 
1350 SSO} 


1353 
1354 
1355 


1356 sso2 
1357 SSo3 


Vv.0.M. PART NO. 


c5esst 


TITLE C52@SST 
1 


PROGRAM NAME - 


cS52sst { 153) 


EVEC 02 
THIS 1S A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESO2 
0 


92L1105-045A 


RELEASED 03-26-73 


C52SST - BUILD DCM STATUS WORD IN VTAM FORMAT 


ENTRY CONDITIONS - 


(VTSTAK+1) A REGISTER VALUE OF CALLING PROGRAM 
(VTSTAK+2) B REGISTER VALUE OF CALLING PROGRAM 
(VTSTAK+3) X REGISTER VALUE OF CALLING PROGRAM 
INTERRUPTS DISABLED 

CALLING SEQUENCE - 
DINTS DISABLE INTERRUPTS 
JMPM VTPUSH REENTRANT CALL VIA VOLATILE ST. 
DATA C5esSsT ADORESS OF C52SST 


(RETURN WITH INTERRUPTS ON) 


EXIT CONDITIONS - 
(VTSTAK+1) DESTROYED 
(VTSTAK+2) STATUS WORD 
(VTSTAK+3) UNCHANGED 


PAGE 


ACK**02 


#202 


EXIT TO VTPOP WHERE VTSTAK+1 THRU VTSTAK+3 ARE RESTORED**02 
TO (A), 


EJEC 

NAME csesst 
DATA 6 
EINTS 


ExT VTSTAK 
LOBE VTSTAK 


LOX 3.8 
SET x 


READ STATUS FROM DCM 


(B) AND (X) RESPECTIVLY 


eeeneeseee 
eereeveees 


NUMBER OF ADDITIONAL WORDS TO ALLOCATE 
IN STACK. 


FETCHA LSO,LSPLA,LSPLAB,LSPLAZ 


ORA 8S6 
STA 1,8 
TBA 

IAR 

STA 7.8 
IAR 

STA 8,8 
LDA SSJSR 
STA 5.B 
LOA SSJSRA 
STA 6,8 
LOA SSJMP 
STA 9.8 
LDA SSJUMPA 
STA 10,8 
TUMP 5.8 


STORE CONTROL WORD IN STACK ‘A’ CELL 


SET CONTROL WORD POINTER 
SET STATUS WORD POINTER 


STORE JSR INSTRUCTION 
STORE JSR ADDRESS 
STORE JMP INSTRUCTION 
STORE JMP ADDRESS 


RETURN AFTER READ CONTROL SEQUENCE 


LOBE VTSTAK 
Lox 3.8 


FETCHA LSO,LSMOD,LSMODB,LSMOOZ 


JANZ sso2 
LOAI O13 
wep $so3 
TZA 


LOX SEVEN 


IF NOT DIRECT CONNECT, JUMP 


**02 
**02e 


DIRECT CONNECT, SET STATUS FOR OC MODEM 02 


LOOP COUNTER AND MASK SELECTOR 


VTAM AL cS2ssT ¢ 154) PAGE 


000046 026002 A 1358 LOB 2,8 (B) = STATUS WORD 02 00082 
000047 006477 A 1359 SSO4W = BT RBO+B15,SS05 02 00083 
900050 000053 R 
900051 006115 A 1360 ORAE SSBM-1,x SET BIT IN (A) IF BIT SET IN STATUS 02 o0084 
000052 000063 R 
000053 O04041 A 1361 SSO5 LRLB 1 SHIFT NEXT “STATUS BIT TO BIT POSITION 15 
000054 005344 A 1362 OxR DECREMENT LOOP COUNTER 
‘000055 001046 A 1363 JXNZ sso¥ 
000056 000047 R 
1364 * 
on * STORE DCM STATUS WORD IN STACK 'B’ CELL 
1 . 
900057 006027 A 1367 LOBE VTSTAK 
000060 000032 E 
000061 O56002 A 1368 STA 2.8 
1369 * 
1370 * RETURN TO REQUESTOR 
1371 * 
1372 ExT VTPOP 
000062 001000 A 1373 JMP vTPOP 
000063 000000 E 
1374 © 
1375 ¢ BIT MASK TABLE 
1376 * 


000064 000020 A 1377 SSBM DATA 020 CONTROL LINE (REVERSE CHANNEL) 


A 
000065 000004 A 1378 DATA 4 RING 
000066 000000 A 1379 DATA 0 
000067 000000 A 1380 DATA t) ti) 
000070 000001 A 1381 DATA 1 2**0 = CLEAR-TO-SEND 
000071 000010 A 1362 DATA 010 2**3  CARRIER-ON 
000072 o00002 A 1383 DATA 2 2**1 DATA-SET-READY 
1364 * 
1385 * READ CONTROL SEQUENCE 
1386 * 
1387 ExT C5eRCR 
000073 006506 A 1388 SSUSR JSR C52RCR,B 
000074 000000 E 
000074 R 1389 SSUSRA EQU on] 
000075 001000 A 1390 SSUMP JUMP s$sol 
000076 000031 R 
000076 R 1391 SSUMPA EQU ce | 
1392 END 
ENTRY NAMES 
000000 R CSessT 
EXTERNAL NAMES 
000074 E C52RCR 000063 E VTPOP 000060 E VTSTAK 
SYMBOLS 
000044 A APIM ooo002 AB 000000 A 60 000001 A BI 
000012 A B10 000013 A B11 000014 A B12 000015 A 813 
00016 A B14 000017 A B15 o00002 A Be 000003 A 83 
oo0004 A BY 000005 A BS 000006 A B6 000007 A 87 
000010 A BS 000011 A BS 000000 A BICNUM 000421 A BMI 
000472 A BMI17 000475 A BM177 000477 A BM1777 OOO4GY A BMS 
000473 A BM37 000463 A BM377 000467 A BM7 000474 A BM77 
000476 A BM777 000441 A BRO 000442 A BRI 000453 A BRIO 
000454 A BRI! 000455 A BRI2 000456 A BRI3 000457 A BRIY 
000460 A BRI5 000443 A BRE O00444 A BR 000445 A BRY 
000446 A BRS 000447 A BRE 000450 A BR7 000451 A BRB 
000452 A BRO 000421 A BSO ooo42e A BSI 000433 A BS10 
000434 A BSi1 000435 A BS12 000436 A BSI13 000437 A BS14 
000440 A BS15 O00423 A BS2 000424 A BS3 000425 A BSY 
000426 A BSS 000427 A BS6 000430 A BS7 000431 A BSS 
000432 A BS9 000074 E C52RCR 000000 R C52SST 000047 A CLOCK 
000000 A COTAD! G00000 A CTACT 000017 A CTACTB OO0001 A CTACTZ 
000001 A CTADN 000000 A CTAONB 000020 A CTADNZ 000011 A CTBIC 
000000 A CTBICB 000020 A CTBICZ 000003 A CTOST 000000 A CTOSTB 
000020 A CTOSTZ 000006 A CTDVA 000000 A CTOVAB 000020 A CTDVAZ 
000012 A CTFCB 000000 A CTFCBB 000020 A CTFCBZ 000014 A CTFRC 
000010 A CTFRCB 000010 A CTFRCZ 000014 A CTFRE 000000 A CTFREB 
000010 A CTFREZ 000000 A CTIDB 000000 A CTIDBB 000017 A CTIDBZ 
000007 A CTIOA 000000 A CTIOAB 000020 A CTIOAZ 000002 A CTOPM 
000000 A CTOPMB 000020 A CTOPMZ 000005 A CTRCN 000000 A CTRCNB 
000010 A CTRCNZ 000004 A CTROB 000000 A CTROQBB 000020 A CTROBZ 
000005 A CTRTR 000010 A CTRTRB 000010 A CTRTRZ 000010 A CTSTA 
000000 A CTSTAB 000020 A CTSTAZ 000013 A CTWOS 000000 A CTWOSB 
000020 A CTWOSZ 00000! A DCBUFF 000002 A DCCNT 000000 A DCRECL 
000747 A DISCLK 000745 A DISMP O00444 A DISPIM 000024 A OMCHA 
000000 A DMCWAB 000020 A DMCWAZ 000017 A DMFPA 000000 A OMFPAB 
000020 A DMFPAZ 000021 A DMLCA 000000 A DMLCAB 000020 A OMLCAZ 
000022 A DMLTA 000000 A OMLTAB 000020 A DMLTAZ 000023 A DMPTA 
000000 A OMPTAB 000020 A OMPTAZ 000016 A DMRPA 000000 A OMRPAB 
000020 A DMRPAZ 000020 A OMSTA 000000 A DMSTAB 000020 A DMSTAZ 
000025 A DMSWA 000000 A DMSHAB 000020 A DMSWAZ 000015 A OMTPA 
000000 A DMTPAB 000020 A DMTPAZ 000002 A OSCTAD 000000 A DSDASS 
000000 A DSDVDN 000002 A DSLCKO 000001 A DSNAME 000000 A DSNORQ 
000002 A OSOPCM 000002 A DSPST!I 000002 A DSREWD 000000 A OSUNAM 
000002 A DSUNTN 000424 A EIGHT 000147 A ENACLK 000645 A ENAMP 
000244 A ENAPIM 000465 A FIVE 000423 A FOUR 000300 A LC 
000003 A LCABN 000013 A LCASNB 000001 A LCABNZ 000003 A LCASY 
000012 A LCASYB 090U01 A LCASYZ 000003 A LCCRC 000014 A LCCRCB 
000003 A LCCRCZ 000006 A LCCWB 000014 A LCCWBB 000001 A LCCWBZ 
000006 A LCCWC 000015 A LCCWCB 00000: A LCCWCZ 000006 A LCCWO 
000013 A LCCWDB 000001 A LCCWDZ 000006 A LCCWI 000016 A LCCHIB 
000001 A LCCWIZ 000006 A LCCWP 000012 A LCCWPB 000001 A LCCWPZ 
000006 A LCCWR 000011 A LCCWRB 000001 A LCCWRZ 000006 A LCCWS 
000017 A LCCWSB 000001 A LCCWSZ 000006 A LCCWT 000010 A LCCHTB 
00000! A LCCWTZ 000001 A LCIBA 000000 A LCIBAB 000017 A LCIBAZ 


VTAM Al 


000000 
000000 
000010 
000003 
000006 
000017 
000017 
ooo004 
000000 
000001 
o00462 
000017 
000013 
000010 
000017 
oo0c00 
000017 
go0020 
oo0014 


000016 
000006 
000016 
000000 
000020 
000001 
000000 
000020 
000016 
000000 
000020 
000016 
000000 
000002 
000020 
000000 
000145 
000461 
000011 
000010 
000001 
000010 
000004 
000001 
000010 
000002 
000043 
000040 
000001 
000002 
000010 
000003 
000010 
000001 
000004 
000000 
000016 
000014 
000010 
000001 
000003 
000000 


000010 
000060 
000001 

000466 
000047 
000076 
000026 
oo0014 
000016 
oo000e 
000007 
000001 

ooo015 
000003 
000007 
000025 
000004 
000000 
000001 

000005 
oo0000 
000020 
000015 
000000 
000001 

000005 
000000 
000010 
000013 
000000 
000003 
000006 
oo0000 
ooo00! 
000005 
000016 


PPP PPPOE EEE EEE EEE EEE HEHE EEE EEE HEDIS EH > HOO OSES E HEHEHE EEE EE > EEE E> EEE EE EEE EEE EEE OEE EDD PEPE EEO EEE EOE EEE SED 


LCIBF 
LCIBLB 
LCICIZ 
LCIKE 
LCLcB 
LCLTBB 
LCOBAZ 
LCOBL 
LCOKEB 
LCRCCZ 
LHW 
LSASC 
LSASYB 
uscecizZ 
LSCRC 
LSCTAB 
LSDSFB 
LSOSTZ 
LSLSP 


LSMOOB 
LSNTOZ 
LSPLA 
LSRCAB 
LSREMZ 
LSRRT 
LSRTOB 
LSSRSZ 
LSTER 
LSTHDB 
LSWCAZ 
LSWRS 
LSWTOB 
LSXMMZ 
LSYNR 
LSYNTB 
MPMRI 
NEG 
PCBSLB 
PCCLNZ 
PCECH 
PCLLNB 
PCNTOZ 
PCSHL 
PCTYPB 
PCXMMZ 
PIMY 
PIMe 
PSABNZ 
PSBADT 
PSCC1Z 
PSCRC 
PSDEFB 
PSDSFZ 
PSEND 
PSLSP 
PSMODB 
PSPARB 
PSPLAZ 
PSTERZ 
PSYNC 
PSYNRB 


PSYNTZ 
RBO 
ROPWD 


000017 
000014 
oo0002 
000000 
ooo0000 
000001 
000004 
000000 
000004 
900000 
000017 
00001! 
000001 
000015 
oo0012 
000020 
000001 
000016 
000000 


00002 
000014 
000000 
000020 
000016 
000000 
000020 
oo001! 

000017 
000020 
000007 
000013 
oo00e0 
000017 
000000 
000010 
000245 
000470 
000001 

000002 
ooo014 
000010 
ooo001 

000010 
000004 
000040 
000040 
000200 
000000 
000000 
000001 

oo0001e 
000001 

000002 
oo000e 
000000 
oo000e 
00002 
000001 

000000 
000016 
000010 


000040 
oo00e0 
000000 
000031 
000053 
000073 
000011 
000015 
000022 
000004 
000010 
000012 
000016 
000004 
000010 
000013 
00001! 
000010 
000002 
000014 
000020 
00004 
000000 
000020 
000003 
000004 
000004 
000004 
000000 
000020 
000001 
000006 
000020 
000000 
000010 
000001 


PPP HE rH EEE EEE EEE EEE EE EEE EEE EOP VIVES Hh FEO OES HEHEHE rE EEE EE EE > EEE E> EEO EEE E EEE EEE > D SEPP EES EEE EEE EE EE ED 


LCIBFB 
LCIBLZ 
Lcice 
LCIKEB 
LCLCeB 
LCLTBZ 
LCoBr 
LCOBLB 
LCOKEZ 
LCSMB 
LSABN 
LSASCB 
LSASYZ 
Liscce 
LSCRCB 
LSCTAZ 
LSDSFZ 
LSEPF 
LSLSPB 


LSMODZ 
LSPAR 
LSPLAB 
LSRCAZ 
LSRRS 
LSRRTB 
LSRTOZ 
LSSWS 
LSTERB 
LSTHDZ 
LSWEM 
LSWRSB 
LSWTOZ 
LSYNC 
LSYNRB 
LSYNTZ 
MPMRe 
NINE 
PCBSLZ 
PCCTP 
PCECHB 
PCLLNZ 
PCPCH 
PCSWLB 
PCTYPZ 
PIMI 
PIMS 
POST 
PSASY 
PSBEG 
Pscce 
PSCRCB 
PSDEFZ 
PSOWN 
PSEPF 
PSLSPB 
PSMODZ 
PSPARZ 
PSPROT 
PSXMM 
PSYNCB 
PSYNRZ 


TCWBCZ 


oo0001 
oo000e 
000000 
oo0004% 
000020 
000005 
000017 
000014 
000003 
000016 
000015 
000001 
000015 
000000 
000003 
ooo001 
000013 
000016 
000011 


000020 
ooo0014 
000010 
000003 
000010 
000020 
000005 
000000 
000001 
000006 
000000 
000003 
ooo014 
000016 
000010 
000045 
000345 
000421 

000000 
000014 
000001 

000002 
000000 
000001 

000001 

000041 

000040 
000003 
000013 
000001 

ooo000 
000003 
000003 
000011 

000016 
000011 

000003 
oo0002 
000002 
oooo11 

000001 

000003 


000000 
000002 
000003 
000044 
000064 
000074 
000003 
000017 
000023 
000005 
000006 
000013 
000017 
000005 
00001! 
oo001e 
000001 
000004 
000000 
000004 
000014 
000014 
000020 
oo000s 
000010 
000004 
000004 
000017 
000020 
000006 
000000 
000003 
ooooo4 
000000 
000004 
000011 


PPP PPP rH KK EH EEE EEE EEE HEHEHE EHPO VIVE >> SEP O> SSE E EEE HEH EEE EE EEE EEE EEE >>> EEE E> E> Er E> E> PEEP EEE EEE EEE EEO DED 


LCIBFZ 
LCICcl 
LciceB 
LCIKEZ 
LCLCsz 
LCOBA 
LCOBFB 
LCOBLZ 
LCRCC 
LCSMBB 
LSABNB 
LSASCZ 
LSCCI 
LscceB 
LSCRCZ 
Lso 
LSOST 
LSEPFB 
LSLSPZ 


LSNTO 
LSPARB 
LSPLAZ 
LSREM 
LSRRSB 
LSRRTZ 
LSSRS 
LSSWSB 
LSTERZ 


000000 
000010 
000010 
000050 
000007 
000000 
000001 
000007 
000017 
00000! 
oocoo! 
000014 
000010 
000010 
oo0012 
000017 
000000 
000001 
000014 


000010 
000002 
000002 
000000 
000003 
000004 
900000 
000020 
ooo000 
000000 
000020 
000010 
00001! 
000001 
000017 
000045 
000420 
900001 
000000 
ooo004 
000000 
000000 
900010 
000002 
000012 
oo0042 
000040 
000015 
000001 
000010 
000010 
000002 
000017 
000001 
000001 
000000 
000000 
000000 
000017 
ooo002 
000004 
ooo00e 


ooo004 
000463 
000467 
000045 
000075 
000027 
000021 
000020 
000024 
000030 
000000 
000014 
000002 
000006 
000001 
000000 
000003 
0001S 
00020 
oooo1e 
000000 
000001 
000016 
000014 
000010 
000005 
000000 
oooco! 
000007 
oooo00 
000020 
000010 
000010 
00020 
000004 
000000 
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RADNR 
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VTAM Al 


000020 
000006 
ooo01e 
oooc0e 
000017 
ooco0e0 


000003 
000007 
000010 
000001 
000000 
oo0020 
000422 
000056 
000353 
000076 
000360 
000355 
000350 
000055 
000054 
000307 
000400 
000362 
000363 
000352 
000416 
000304 
000420 


“* 0 ERROR: 


PPPS POSSE EEE r >> E rrr >r>re PES erye 


A 


TCWCAZ 
TCWRS 
TCXMMP 
TIOSP. 
TIOWNB 
TINETZ 


TIOOP 
TIOSCB 
TISECZ 
TITU2 
TPFPAB 
TPRPAZ 
TWO 
V$BICI 
V$CKB 
VSCRDM 
VSCTAD 
V$D0STB 
VSFREE 
VSJCFG 
VSLCNT 
VSLRSK 
V$LUTI 
VSNCTR 
VSPIMN 
VSSCV 
VSTFC 
v$UTB 


000006 
ooo00l! 
oo0002 
000000 
oooo0! 
000003 


000000 
000010 
000000 
000000 
900020 
000016 
000403 
000315 
000411 
000341 
000300 
000376 
000320 
000077 
000313 
000312 
000401 
000413 
000074 
000375 
000314 
000063 


>> >rr>r 


PPPS PEE ES rrr EEE Srey y 


A 
E 


TCWMD 
TCWRSB 
TCXMMZ 
TIOSPB 
TIDWNZ 
TIOON 


TIOOPB 
TIOSCZ 
TITUL 
TITU2B 
TPFPAZ 
TPWPA 
VSIMIN 
v$BTB 
V$CKIT 
VSCROR 
VSCTL 
VSERFG 
VSIM 
VSJICTM 
VSLER 
VSLSAL 
V$LUT2 
v$OcB 
VSPLCT 
VSSLFG 
VSTUCP 
VTPOP 


ZERO 
IS ASSEMBLY COMPLETE 


000003 
000003 
000471 
000007 
000000 
000017 


000007 
ooo00e 
000000 
000020 
000015 
000000 
000415 
000414 
000310 
000354 
000351 
000347 
000410 
000050 
000356 
000345 
000402 
000346 
000305 
000303 
000344 
000060 


M>> >>> >>> rr >>> rr rrr rrr Pree rye 


VSTMN 
VTSTAK 


000003 
ooo004 
000464 
000002 
000000 
ooo001 


000003 
000007 
oo0020 
000017 
000000 
000020 
000075 
000334 
000301 
000302 
000070 
000306 
000412 
000377 
000317 
000316 
000330 
000311 
000361 
000342 
000343 
000001 
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VTAM REVISION A.1 
RELEASE BULLETIN 
VTAM A.1 OBJECT MODULES 
92W9905-007A 
7-17-73 
fy ____ INTEOP UCTS. 
VTAM Supplement A.1 release replaces all previous releases of VTAM. This 


Release Bulletin describes the corrections and additions to VTAM that are included 
in this release. 


I, USAGE DESCRIPTION 


System Generation of a VORTEX-VTAM system is described in the VTAM Reference 
Manual (98A 9952 22R). 


The object material released contains four parts: 
1. TDF directives and binary object modules. 
2. Job sequences to load ancillary VTAM modules to the system libraries. 
3. Source of CC$TLB. 
4. Source of CTMX0A. 
Each of the parts is terminated by an End-of-File. When supplied on magnetic tape 
or paper tape, part 3 above may be reached by skipping fourteen (14) files. 
Ill. DESCRIPTION OF PROGRAMS 


The following programs have been updated for this release as described below: 


TC$CEX, TYREAD 


SMR-503 Return End-of-File condition if BELL character 
is the first character input for standard (ASCII) 
READ. 


LOPNCLOS, TOPNCLS 


SMR-533 Error indications not returned properly on 
line Open/Close errors. In particular, downed 
lines can be opened through JCP without any 
error indication. 


ADVANC, BITSET, CLEAR, COMPAR, DIAG, GETCHR, GETLSD, 
HEADER, NDL, NUMBER, PARSE, PUTLSD, PUTTCD, REPORT, SHRINK, 
TUID, NETCON 


SMR-535 NDL Processor (NDM) will not run in minimum 
background partition of 8K. 


CS2FUN, C52SST 


SMR-534 Correction for "RING" problem and incorrect 
detail status returned by CCM. 


